Disclaimer: The purpose of the Open Case Studies project is to demonstrate the use of various data science methods, tools, and software in the context of messy, real-world data. A given case study does not cover all aspects of the research process, is not claiming to be the most appropriate way to analyze a given data set, and should not be used in the context of making policy decisions without external consultation from scientific experts.

Motivation


This case study explores how different countries have contributed to Carbon Dioxide (CO2) emissions over time and how CO2 emission rates may relate to increasing global temperatures and increased rates of natural disasters and storms. This report provides a basis for the motivation: https://www.epa.gov/report-environment/greenhouse-gases.

CO2 makes up the largest proportion of greenhouse gas emissions in the United States:

A variety of sources and sectors contribute to greenhouse gas emissions, with transportation contributing the most metric tons of CO2:

So why should we pay attention to greenhouse gases?

According to the US Environmental Protection Agency (EPA) Inventory of U.S. Greenhouse Gas Emissions and Sinks 2020 Report:

Greenhouse gases absorb infrared radiation, thereby trapping heat in the atmosphere and making the planet warmer. The most important greenhouse gases directly emitted by humans include carbon dioxide (CO2), methane (CH4), nitrous oxide (N2O), and several fluorine-containing halogenated substances. Although CO2, CH4, and N2O occur naturally in the atmosphere, human activities have changed their atmospheric concentrations. From the pre- industrial era (i.e., ending about 1750) to 2018, concentrations of these greenhouse gases have increased globally by 46, 165, and 23 percent, respectively (IPCC 2013; NOAA/ESRL 2019a, 2019b, 2019c).

  • IPCC stands for the Intergovernmental Panel on Climate Change

There are many signs that our planet is experiencing warmer temperatures:

The connection between greenhouse gas levels and global temperatures and the influence of increased global temperatures on human health are motivated by these reports:

Melillo, J.M., T.C. Richmond, and G.W. Yohe (eds.). 2014. Climate change impacts in the United States: The third National Climate Assessment. U.S. Global Change Research Program.

  1. “Inventory of US Greenhouse Gas Emissions and Sinks: 1990–2018.” EPA 430-R-20-002, Tech. Rep. https://www.epa.gov/ghgemissions/inventory-us-greenhouse-gas-emissions-and-sinks.

The National Climate Assessment Report states that:

Heat-trapping gases already in the atmosphere have committed us to a hotter future with more climate-related impacts over the next few decades. The magnitude of climate change beyond the next few decades depends primarily on the amount of heat-trapping gases that human activities emit globally, now and in the future.

See here and here for more information.

Main Questions


Our main question:

  1. How have global CO2 emission rates changed over time? In particular for the US, and how does the US compare to other countries?
  2. Are US CO2 emissions, global temperatures, and US storm rates associated?

Learning Objectives


In this case study, we will explore CO2 emission data from around the world. We will also focus on the US specifically to evaluate patterns of temperatures and storm activity. This case study will particularly focus on visualizations of patterns over time. We will especially focus on using packages and functions from the Tidyverse, such as plotlyand gganimate. The tidyverse is a library of packages created by RStudio. While some students may be familiar with previous R programming packages, these packages make data science in R especially efficient.


We will begin by loading the packages that we will need:

Package Use
here to easily load and save data
readxl to import the excel file data
readr to import the csv file data
dplyr to view and wrangle the data
magrittr to use and reassign data objects using the %<>%pipe operator
tidyverse to wrangle the data and create ggplot2 plots
plotyly to make the visualizations
gganimate to make the plots interactive
RColorBrewer to have greater control over the color in our plots

The first time we use a function, we will use the :: to indicate which package we are using. Unless we have overlapping function names, this is not necessary, but we will include it here to be informative about where the functions we will use come from.

Context


Greenhouse gas emissions are due to both natural processes and anthropogenic (human-derived) activities.

These emissions are one of the contributing factors to rising global temperatures, which can have a great influence on public health as illustrated in the following image:

Gases in the atmosphere can contribute to climate change both directly and indirectly. Direct effects occur when the gas itself absorbs radiation. Indirect radiative forcing occurs when chemical transformations of the substance produce other greenhouse gases, when a gas influences the atmospheric lifetimes of other gases, and/or when a gas affects atmospheric processes that alter the radiative balance of the earth (e.g., affect cloud formation or albedo). The IPCC developed the Global Warming Potential (GWP) concept to compare the ability of a greenhouse gas to trap heat in the atmosphere relative to another gas. The GWP of a greenhouse gas is defined as the ratio of the accumulated radiative forcing within a specific time horizon caused by emitting 1 kilogram of the gas, relative to that of the reference gas CO2 (IPCC 2013). Therefore GWP-weighted emissions are provided in million metric tons of CO2 equivalent (MMT CO2 Eq.)

CO2 is actually the least capable of the greenhouse gases for trapping heat:

However, because CO2 is so much more abundant and stays in the atmosphere so much longer than other greenhouse gases, it has been the largest contributor to global warming.

See here for more details.

Furthermore, sizing CO2 levels also influence ocean acidity:

This makes it difficult for organisms to maintain their shells or skeletons that are made of calcium carbonate, thus making it more difficult for these organisms to survive and impacting their role in the ecosystem and food chain.

Furthermore, greenhouse gas emissions are believed to influence storm rates.

Indeed events with high levels of precipitation which can induce flooding and property damage are generally increasing around the country:

Limitations


There are some important considerations regarding this data analysis to keep in mind:

  1. Correlation or association does not imply causation

  2. Limitaiton 2

What are the data?


In this case study we will be using data related to CO2 emissions, as well as other data that may influence, be influenced or relate to CO2 emissions. Most of our data was obtained from Gapminder, which is a unique nonprofit that provides a variety of data for free.

In their words, Gapminder is…

Gapminder is an independent Swedish foundation with no political, religious or economic affiliations. Gapminder is a fact tank, not a think tank. Gapminder fights devastating misconceptions about global development. Gapminder produces free teaching resources making the world understandable based on reliable statistics. Gapminder promotes a fact-based worldview everyone can understand. Gapminder collaborates with universities, UN, public agencies and non-governmental organizations. All Gapminder activities are governed by the board. We do not award grants. Gapminder Foundation is registered at Stockholm County Administration Board. Our constitution can be found here.

The data that we will be using from Gapminder was obtained from the World Bank.

In addition we will use some data that is specific to the United States from the [National Oceanic and Atmospheric Administration (NOAA)] (https://www.noaa.gov/), which is an agency that collects weather and climate data.

Data Source Orginal Source Description
CO2 emissions Gapminder Carbon Dioxid Information Analysis Center (CDIAC) CO2 emissions in tonnes or metric tons (equivalent to approximately 2,204.6 pounds) per person
GDP per capita, yearly growth Gapminder World Bank Growth Domestic Product (which is an overall measure of the health of nation’s economy) per person
Energy use per person Gapminder World Bank Use of primary energy before transformation to other end-use fules, by country starting in 1960
Crude Mortality Rate World Bank World Bank Death rate per 1,000 people from 1960 to 2018 by country
US Natural Disasters The National Oceanic and Atmospheric Administration (NOAA) The National Oceanic and Atmospheric Administration (NOAA) Data from 1980 to 2019 including:
– Drought Count
– Flooding Count
– Freeze Count
– Severe Storm Count
– Tropical Cyclone Count
– Wildfire Count
– Winter Storm Count
Temperature The National Oceanic and Atmospheric Administration (NOAA) The National Oceanic and Atmospheric Administration (NOAA) National yearly average temperature (in Fahrenheit) from 1895 to 2019

To obtain the temperature data, annual average temperatures were selected as shown in this image:

https://www.ncdc.noaa.gov/cag/national/time-series/

Data Import


To read in the files that were downloaded from the various sources as indicated in the table above, we will use the read_xlsx() and read_xls() functions of the readxl package to import the data from the .xlsx and .xls files respectively and we will use the read_csv function of the readr package to import the data from the csv files.

For our csv data files, there are some lines that we would like to not import - infact, we will get an error if we try to import them because our table structure will be as r expects. We can do so using the skip = argument of the read_csv() function.

Here you can see that the first two rows of the data about US Disasters doesn’t have the same number of columns as the subsequent rows. So we want to skip these first two lines, we will use skip = 2 for this.

Now looking at the temperature data, we can see that the first four lines do not have the same number of columns as the subsequent lines. We will skip importing all 4 lines by using skip = 4. We can also specify that NA values are encoded as "-99". This will replace all instances of "-99" with NA. We can do this using the na = argument of the read_csv() function. We will do so as: na = "-99". The “-99” needs to be in quotation markes becuase this argument expects characters.

Great! now we have imported all of the data that we will need.

Data Exploration and Wrangling


Now we will take a look at our data and wrangle it until it is easy to use to allow us to evaluate how CO2 emissions have changed over time and how emissions may relate to energy use, mortality, GDP etc.

Yearly CO2 Emissions

First let’s take a look at the CO2 data. We can use the base head() function to see just the first 6 rows of our data.

We will use the %>% pipe which can be used to define the input for later sequential steps. This will make more sense when we have multiple sequential steps using the same data object. To use the pipe notation we need to install and load the dplyr package.

# A tibble: 6 x 265
  country `1751` `1752` `1753` `1754` `1755` `1756` `1757` `1758` `1759` `1760`
  <chr>    <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
1 Afghan…     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
2 Albania     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
3 Algeria     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
4 Andorra     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
5 Angola      NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
6 Antigu…     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
# … with 254 more variables: `1761` <dbl>, `1762` <dbl>, `1763` <dbl>,
#   `1764` <dbl>, `1765` <dbl>, `1766` <dbl>, `1767` <dbl>, `1768` <dbl>,
#   `1769` <dbl>, `1770` <dbl>, `1771` <dbl>, `1772` <dbl>, `1773` <dbl>,
#   `1774` <dbl>, `1775` <dbl>, `1776` <dbl>, `1777` <dbl>, `1778` <dbl>,
#   `1779` <dbl>, `1780` <dbl>, `1781` <dbl>, `1782` <dbl>, `1783` <dbl>,
#   `1784` <dbl>, `1785` <dbl>, `1786` <dbl>, `1787` <dbl>, `1788` <dbl>,
#   `1789` <dbl>, `1790` <dbl>, `1791` <dbl>, `1792` <dbl>, `1793` <dbl>,
#   `1794` <dbl>, `1795` <dbl>, `1796` <dbl>, `1797` <dbl>, `1798` <dbl>,
#   `1799` <dbl>, `1800` <dbl>, `1801` <dbl>, `1802` <dbl>, `1803` <dbl>,
#   `1804` <dbl>, `1805` <dbl>, `1806` <dbl>, `1807` <dbl>, `1808` <dbl>,
#   `1809` <dbl>, `1810` <dbl>, `1811` <dbl>, `1812` <dbl>, `1813` <dbl>,
#   `1814` <dbl>, `1815` <dbl>, `1816` <dbl>, `1817` <dbl>, `1818` <dbl>,
#   `1819` <dbl>, `1820` <dbl>, `1821` <dbl>, `1822` <dbl>, `1823` <dbl>,
#   `1824` <dbl>, `1825` <dbl>, `1826` <dbl>, `1827` <dbl>, `1828` <dbl>,
#   `1829` <dbl>, `1830` <dbl>, `1831` <dbl>, `1832` <dbl>, `1833` <dbl>,
#   `1834` <dbl>, `1835` <dbl>, `1836` <dbl>, `1837` <dbl>, `1838` <dbl>,
#   `1839` <dbl>, `1840` <dbl>, `1841` <dbl>, `1842` <dbl>, `1843` <dbl>,
#   `1844` <dbl>, `1845` <dbl>, `1846` <dbl>, `1847` <dbl>, `1848` <dbl>,
#   `1849` <dbl>, `1850` <dbl>, `1851` <dbl>, `1852` <dbl>, `1853` <dbl>,
#   `1854` <dbl>, `1855` <dbl>, `1856` <dbl>, `1857` <dbl>, `1858` <dbl>,
#   `1859` <dbl>, `1860` <dbl>, …

OK, we can see that our country data makes of the rows and the yearly data makes up the columns. We also see that we have alot of NA values.

We can also use the glimpse() function of the dplyr packge to view our data. This allows us to see more of our data at once. We will see a tiny bit of each variable/column. To do so our data will be displayed with the column names listed on the right.

Rows: 192
Columns: 265
$ country <chr> "Afghanistan", "Albania", "Algeria", "Andorra", "Angola", "An…
$ `1751`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1752`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1753`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1754`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1755`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1756`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1757`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1758`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1759`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1760`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1761`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1762`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1763`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1764`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1765`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1766`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1767`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1768`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1769`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1770`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1771`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1772`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1773`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1774`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1775`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1776`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1777`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1778`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1779`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1780`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1781`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1782`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1783`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1784`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1785`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1786`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1787`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1788`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1789`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1790`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1791`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1792`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1793`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1794`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1795`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1796`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1797`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1798`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1799`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1800`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1801`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1802`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1803`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1804`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1805`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1806`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1807`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 169, NA, NA, NA, NA, NA, …
$ `1808`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1809`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1810`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1811`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1812`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1813`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1814`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1815`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1816`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1817`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1818`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
$ `1819`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 253, NA, NA, NA, NA, NA, …
$ `1820`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 334, NA, NA, NA, NA, NA, …
$ `1821`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 359, NA, NA, NA, NA, NA, …
$ `1822`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 367, NA, NA, NA, NA, NA, …
$ `1823`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 348, NA, NA, NA, NA, NA, …
$ `1824`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 400, NA, NA, NA, NA, NA, …
$ `1825`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 403, NA, NA, NA, NA, NA, …
$ `1826`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 458, NA, NA, NA, NA, NA, …
$ `1827`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 477, NA, NA, NA, NA, NA, …
$ `1828`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 458, NA, NA, NA, NA, NA, …
$ `1829`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 477, NA, NA, NA, NA, NA, …
$ `1830`  <dbl> NA, NA, NA, NA, NA, NA, NA, 0.032, NA, 495.000, 0.308, NA, NA…
$ `1831`  <dbl> NA, NA, NA, NA, NA, NA, NA, 3.84e-02, NA, 4.80e+02, 3.70e-01,…
$ `1832`  <dbl> NA, NA, NA, NA, NA, NA, NA, 2.56e-02, NA, 5.13e+02, 2.47e-01,…
$ `1833`  <dbl> NA, NA, NA, NA, NA, NA, NA, 0.032, NA, 429.000, 0.308, NA, NA…
$ `1834`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 587, NA, NA, NA, NA, NA, …
$ `1835`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 634, NA, NA, NA, NA, NA, …
$ `1836`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 675, NA, NA, NA, NA, NA, …
$ `1837`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 708, NA, NA, NA, NA, NA, …
$ `1838`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 851, NA, NA, NA, NA, NA, …
$ `1839`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1060, NA, NA, NA, NA, NA,…
$ `1840`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1170, NA, NA, NA, NA, NA,…
$ `1841`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1320, NA, NA, NA, NA, NA,…
$ `1842`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1460, NA, NA, NA, NA, NA,…
$ `1843`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1270, NA, NA, NA, NA, NA,…
$ `1844`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1600, NA, NA, NA, NA, NA,…
$ `1845`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 1800, NA, NA, NA, NA, NA,…
$ `1846`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2120, NA, NA, NA, NA, NA,…
$ `1847`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2080, NA, NA, NA, NA, NA,…
$ `1848`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2340, NA, NA, NA, NA, NA,…
$ `1849`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2260, NA, NA, NA, NA, NA,…
$ `1850`  <dbl> NA, NA, NA, NA, NA, NA, NA, 0.198, NA, 2330.000, 1.910, NA, N…
$ `1851`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2340, NA, NA, NA, NA, NA,…
$ `1852`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 2810, NA, NA, NA, NA, NA,…
$ `1853`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 3230, NA, NA, NA, NA, NA,…
$ `1854`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 3180, NA, NA, NA, NA, NA,…
$ `1855`  <dbl> NA, NA, NA, NA, NA, NA, NA, 6.01e-01, NA, 3.70e+03, 5.80e+00,…
$ `1856`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 4240, NA, NA, NA, NA, NA,…
$ `1857`  <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, 4880, NA, NA, NA, NA, NA,…
$ `1858`  <dbl> NA, NA, NA, NA, NA, NA, NA, 8.44e-01, NA, 7.25e+03, 8.14e+00,…
$ `1859`  <dbl> NA, NA, NA, NA, NA, NA, NA, 8.95e-01, NA, 5.87e+03, 8.64e+00,…
$ `1860`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.18, 279.00, 6150.00, 11.40, NA,…
$ `1861`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.5, 510.0, 6380.0, 14.5, NA, NA,…
$ `1862`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.36, 356.00, 6360.00, 13.10, NA,…
$ `1863`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.42, 400.00, 5880.00, 13.70, NA,…
$ `1864`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.59, 268.00, 5080.00, 15.40, NA,…
$ `1865`  <dbl> NA, NA, NA, NA, NA, NA, NA, 1.52, 422.00, 5360.00, 14.70, NA,…
$ `1866`  <dbl> NA, NA, NA, NA, NA, NA, NA, 4.81, 697.00, 3600.00, 46.40, NA,…
$ `1867`  <dbl> NA, NA, NA, NA, NA, NA, NA, 5.52, 895.00, 4920.00, 53.20, NA,…
$ `1868`  <dbl> NA, NA, NA, NA, NA, NA, NA, 4.59, 733.00, 6080.00, 44.30, NA,…
$ `1869`  <dbl> NA, NA, NA, NA, NA, NA, NA, 6.23, 642.00, 6490.00, 60.10, NA,…
$ `1870`  <dbl> NA, NA, NA, NA, NA, NA, NA, 6.76, 601.00, 7370.00, 65.20, NA,…
$ `1871`  <dbl> NA, NA, NA, NA, NA, NA, NA, 9.12, 693.00, 10200.00, 88.00, NA…
$ `1872`  <dbl> NA, NA, NA, NA, NA, NA, NA, 9.36, 708.00, 10000.00, 90.40, NA…
$ `1873`  <dbl> NA, NA, NA, NA, NA, NA, NA, 8.79, 869.00, 10700.00, 84.80, NA…
$ `1874`  <dbl> NA, NA, NA, NA, NA, NA, NA, 10.7, 891.0, 9160.0, 103.0, NA, N…
$ `1875`  <dbl> NA, NA, NA, NA, NA, NA, NA, 12.3, 829.0, 7870.0, 119.0, NA, N…
$ `1876`  <dbl> NA, NA, NA, NA, NA, NA, NA, 15.2, 931.0, 8100.0, 147.0, NA, N…
$ `1877`  <dbl> NA, NA, NA, NA, NA, NA, NA, 15.6, 1070.0, 7290.0, 150.0, NA, …
$ `1878`  <dbl> NA, NA, NA, NA, NA, NA, NA, 20.3, 968.0, 7250.0, 196.0, NA, N…
$ `1879`  <dbl> NA, NA, NA, NA, NA, NA, NA, 20.9, 1460.0, 8870.0, 201.0, NA, …
$ `1880`  <dbl> NA, NA, NA, NA, NA, NA, NA, 24.5, 2210.0, 23700.0, 236.0, NA,…
$ `1881`  <dbl> NA, NA, NA, NA, NA, NA, NA, 25.80, 1770.00, 10300.00, 249.00,…
$ `1882`  <dbl> NA, NA, NA, NA, NA, NA, NA, 27.20, 2010.00, 10600.00, 262.00,…
$ `1883`  <dbl> NA, NA, NA, NA, NA, NA, NA, 30.90, 2430.00, 11800.00, 298.00,…
$ `1884`  <dbl> NA, NA, NA, NA, NA, NA, NA, 31.4, 2570.0, 11500.0, 303.0, NA,…
$ `1885`  <dbl> NA, NA, NA, NA, NA, NA, NA, 34.20, 2910.00, 12100.00, 330.00,…
$ `1886`  <dbl> NA, NA, NA, NA, NA, NA, NA, 35.10, 2890.00, 11400.00, 338.00,…
$ `1887`  <dbl> NA, NA, NA, NA, NA, NA, 1090.0, 37.1, 3040.0, 12300.0, 358.0,…
$ `1888`  <dbl> NA, NA, NA, NA, NA, NA, 891.0, 38.7, 3530.0, 12000.0, 373.0, …
$ `1889`  <dbl> NA, NA, NA, NA, NA, NA, 1760.0, 41.8, 3430.0, 12900.0, 403.0,…
$ `1890`  <dbl> NA, NA, NA, NA, NA, NA, 1370.0, 47.3, 3550.0, 13000.0, 457.0,…
$ `1891`  <dbl> NA, NA, NA, NA, NA, NA, 939.0, 52.1, 4010.0, 15000.0, 503.0, …
$ `1892`  <dbl> NA, NA, NA, NA, NA, NA, 1390.0, 55.1, 4150.0, 14500.0, 532.0,…
$ `1893`  <dbl> NA, NA, NA, NA, NA, NA, 1550.0, 64.6, 3970.0, 17700.0, 624.0,…
$ `1894`  <dbl> NA, NA, NA, NA, NA, NA, 1990.0, 65.8, 4360.0, 18100.0, 635.0,…
$ `1895`  <dbl> NA, NA, NA, NA, NA, NA, 2270.0, 75.6, 4590.0, 20400.0, 730.0,…
$ `1896`  <dbl> NA, NA, NA, NA, NA, NA, 2310, 77, 4510, 21300, 743, NA, NA, N…
$ `1897`  <dbl> NA, NA, NA, NA, NA, NA, 2080, 89, 4980, 23000, 859, NA, NA, N…
$ `1898`  <dbl> NA, NA, NA, NA, NA, NA, 2350.0, 99.9, 5620.0, 24500.0, 964.0,…
$ `1899`  <dbl> NA, NA, NA, NA, NA, NA, 2920, 116, 5790, 24800, 1120, NA, NA,…
$ `1900`  <dbl> NA, NA, NA, NA, NA, NA, 2070, 131, 10200, 27700, 1270, NA, NA…
$ `1901`  <dbl> NA, NA, NA, NA, NA, NA, 2490, 135, 11400, 28400, 1300, NA, NA…
$ `1902`  <dbl> NA, NA, NA, NA, NA, NA, 2820, 130, 11400, 25700, 1260, NA, NA…
$ `1903`  <dbl> NA, NA, NA, NA, NA, NA, 2860, 127, 11200, 25600, 1230, NA, NA…
$ `1904`  <dbl> NA, NA, NA, NA, NA, NA, 3800, 142, 11600, 26900, 1370, NA, NA…
$ `1905`  <dbl> NA, NA, NA, NA, NA, NA, 3990, 126, 12100, 28100, 1220, NA, NA…
$ `1906`  <dbl> NA, NA, NA, NA, NA, NA, 6260, 144, 14400, 33600, 1390, NA, NA…
$ `1907`  <dbl> NA, NA, NA, NA, NA, NA, 6260, 161, 15500, 42200, 1560, NA, NA…
$ `1908`  <dbl> NA, NA, NA, NA, NA, NA, 7620, 162, 16800, 59000, 1570, NA, NA…
$ `1909`  <dbl> NA, NA, NA, NA, NA, NA, 5940, 172, 14600, 42200, 1660, NA, NA…
$ `1910`  <dbl> NA, NA, NA, NA, NA, NA, 8910, 168, 17500, 57600, 1620, NA, NA…
$ `1911`  <dbl> NA, NA, NA, NA, NA, NA, 9950, 174, 19300, 48100, 1680, NA, NA…
$ `1912`  <dbl> NA, NA, NA, NA, NA, NA, 9490, 198, 20800, 50000, 1910, NA, NA…
$ `1913`  <dbl> NA, NA, NA, NA, NA, NA, 10200, 215, 22400, 59700, 2070, NA, N…
$ `1914`  <dbl> NA, NA, NA, NA, NA, NA, 8680, 194, 24500, 48900, 1870, NA, NA…
$ `1915`  <dbl> NA, NA, NA, NA, NA, NA, 6950, 178, 21800, 34900, 1720, NA, NA…
$ `1916`  <dbl> NA, NA, 3.67, NA, NA, NA, 4990.00, 189.00, 19300.00, 8040.00,…
$ `1917`  <dbl> NA, NA, 7.33, NA, NA, NA, 2230.00, 174.00, 20800.00, 3450.00,…
$ `1918`  <dbl> NA, NA, 18.3, NA, NA, NA, 2520.0, 69.5, 23000.0, 3340.0, 671.…
$ `1919`  <dbl> NA, NA, 18.3, NA, NA, NA, 3730.0, 59.4, 21800.0, 3020.0, 573.…
$ `1920`  <dbl> NA, NA, 22.0, NA, NA, NA, 5900.0, 54.2, 25800.0, 14500.0, 523…
$ `1921`  <dbl> NA, NA, 25.7, NA, NA, NA, 5540.0, 58.7, 23200.0, 19400.0, 567…
$ `1922`  <dbl> NA, NA, 25.7, NA, NA, NA, 7300.0, 71.6, 24400.0, 18600.0, 692…
$ `1923`  <dbl> NA, NA, 14.7, NA, NA, NA, 8450.0, 79.1, 24900.0, 17800.0, 764…
$ `1924`  <dbl> NA, NA, 29.3, NA, NA, NA, 11000.0, 94.3, 27100.0, 20100.0, 91…
$ `1925`  <dbl> NA, NA, 33.0, NA, NA, NA, 11200.0, 93.1, 28300.0, 19000.0, 89…
$ `1926`  <dbl> NA, NA, 40.3, NA, NA, NA, 11300.0, 135.0, 27900.0, 18600.0, 1…
$ `1927`  <dbl> NA, NA, 58.7, NA, NA, NA, 13400.0, 168.0, 28900.0, 20100.0, 1…
$ `1928`  <dbl> NA, NA, 73.30, NA, NA, NA, 12800.00, 186.00, 26300.00, 21200.…
$ `1929`  <dbl> NA, NA, 80.70, NA, NA, NA, 13100.00, 201.00, 23700.00, 24200.…
$ `1930`  <dbl> NA, NA, 84.30, NA, NA, NA, 12800.00, 273.00, 22000.00, 18900.…
$ `1931`  <dbl> NA, NA, 99.00, NA, NA, NA, 12900.00, 328.00, 19600.00, 18100.…
$ `1932`  <dbl> NA, NA, 114.00, NA, NA, NA, 13100.00, 369.00, 20400.00, 15200…
$ `1933`  <dbl> NA, 7.33, 121.00, NA, NA, NA, 13200.00, 412.00, 21600.00, 142…
$ `1934`  <dbl> NA, 7.33, 139.00, NA, NA, NA, 14300.00, 499.00, 22700.00, 138…
$ `1935`  <dbl> NA, 18.3, 132.0, NA, NA, NA, 14000.0, 565.0, 25300.0, 13900.0…
$ `1936`  <dbl> NA, 128.0, 51.3, NA, NA, NA, 15100.0, 648.0, 27100.0, 13600.0…
$ `1937`  <dbl> NA, 297.0, 69.7, NA, NA, NA, 16700.0, 662.0, 28900.0, 15300.0…
$ `1938`  <dbl> NA, 348, 33, NA, NA, NA, 16400, 699, 28100, 5790, 6750, NA, 3…
$ `1939`  <dbl> NA, 433.00, 161.00, NA, NA, NA, 17400.00, 707.00, 32200.00, 6…
$ `1940`  <dbl> NA, 693, 238, NA, NA, NA, 15900, 848, 29100, 7350, 8190, NA, …
$ `1941`  <dbl> NA, 627, 312, NA, NA, NA, 14000, 745, 34600, 7980, 7190, NA, …
$ `1942`  <dbl> NA, 744, 499, NA, NA, NA, 13500, 513, 36500, 8560, 4950, NA, …
$ `1943`  <dbl> NA, 462, 469, NA, NA, NA, 14100, 655, 35000, 9620, 6320, NA, …
$ `1944`  <dbl> NA, 154, 499, NA, NA, NA, 14000, 613, 34200, 9400, 5920, NA, …
$ `1945`  <dbl> NA, 121, 616, NA, NA, NA, 13700, 649, 32700, 4570, 6270, NA, …
$ `1946`  <dbl> NA, 484, 763, NA, NA, NA, 13700, 730, 35500, 12800, 7040, NA,…
$ `1947`  <dbl> NA, 928.00, 744.00, NA, NA, NA, 14500.00, 878.00, 38000.00, 1…
$ `1948`  <dbl> NA, 704.00, 803.00, NA, NA, NA, 17400.00, 935.00, 38500.00, 2…
$ `1949`  <dbl> 14.70, 1020.00, 909.00, NA, NA, NA, 15400.00, 1060.00, 37700.…
$ `1950`  <dbl> 84.3, 297.0, 3790.0, NA, 187.0, NA, 30000.0, 1180.0, 54800.0,…
$ `1951`  <dbl> 91.7, 403.0, 4140.0, NA, 249.0, NA, 35000.0, 1280.0, 59100.0,…
$ `1952`  <dbl> 91.7, 374.0, 3890.0, NA, 312.0, NA, 36100.0, 1370.0, 60300.0,…
$ `1953`  <dbl> 106.0, 414.0, 4000.0, NA, 275.0, NA, 35200.0, 1450.0, 59500.0…
$ `1954`  <dbl> 106.0, 502.0, 4160.0, NA, 348.0, NA, 36800.0, 1590.0, 67900.0…
$ `1955`  <dbl> 154.0, 664.0, 4610.0, NA, 414.0, NA, 39600.0, 1800.0, 70700.0…
$ `1956`  <dbl> 183.0, 840.0, 5000.0, NA, 502.0, NA, 44300.0, 1970.0, 73100.0…
$ `1957`  <dbl> 293.0, 1510.0, 5540.0, NA, 620.0, 22.0, 47700.0, 2160.0, 7460…
$ `1958`  <dbl> 330.0, 1200.0, 5220.0, NA, 594.0, 29.3, 44200.0, 2310.0, 7770…
$ `1959`  <dbl> 385.0, 1440.0, 5670.0, NA, 620.0, 29.3, 49000.0, 2430.0, 8380…
$ `1960`  <dbl> 414.0, 2020.0, 6160.0, NA, 550.0, 36.7, 48800.0, 2530.0, 8820…
$ `1961`  <dbl> 491.0, 2280.0, 6070.0, NA, 455.0, 47.7, 51200.0, 2600.0, 9060…
$ `1962`  <dbl> 689.0, 2460.0, 5670.0, NA, 1180.0, 103.0, 53700.0, 2730.0, 94…
$ `1963`  <dbl> 708.0, 2080.0, 5430.0, NA, 1150.0, 84.3, 50100.0, 2930.0, 101…
$ `1964`  <dbl> 840.0, 2020.0, 5650.0, NA, 1220.0, 91.7, 55700.0, 3120.0, 109…
$ `1965`  <dbl> 1010.0, 2170.0, 6600.0, NA, 1190.0, 150.0, 58900.0, 3310.0, 1…
$ `1966`  <dbl> 1090.0, 2550.0, 8430.0, NA, 1550.0, 348.0, 63100.0, 3490.0, 1…
$ `1967`  <dbl> 1280, 2680, 8440, NA, 994, 565, 65500, 3650, 129000, 40000, 3…
$ `1968`  <dbl> 1220, 3070, 9060, NA, 1670, 990, 69100, 3750, 135000, 42400, …
$ `1969`  <dbl> 942, 3250, 11300, NA, 2790, 1260, 77300, 3910, 142000, 44700,…
$ `1970`  <dbl> 1.67e+03, 3.74e+03, 1.51e+04, NA, 3.58e+03, 4.62e+02, 8.27e+0…
$ `1971`  <dbl> 1.90e+03, 4.35e+03, 1.87e+04, NA, 3.41e+03, 4.25e+02, 8.89e+0…
$ `1972`  <dbl> 1.53e+03, 5.64e+03, 2.83e+04, NA, 4.51e+03, 3.74e+02, 9.02e+0…
$ `1973`  <dbl> 1.64e+03, 5.29e+03, 3.83e+04, NA, 4.88e+03, 3.30e+02, 9.41e+0…
$ `1974`  <dbl> 1.92e+03, 4.35e+03, 3.19e+04, NA, 4.87e+03, 4.29e+02, 9.56e+0…
$ `1975`  <dbl> 2.13e+03, 4.59e+03, 3.20e+04, NA, 4.42e+03, 7.08e+02, 9.49e+0…
$ `1976`  <dbl> 1.99e+03, 4.95e+03, 3.92e+04, NA, 3.29e+03, 4.03e+02, 9.98e+0…
$ `1977`  <dbl> 2.39e+03, 5.72e+03, 4.19e+04, NA, 3.53e+03, 4.66e+02, 1.01e+0…
$ `1978`  <dbl> 2160, 6490, 62500, NA, 5410, 491, 103000, 5810, 202000, 57500…
$ `1979`  <dbl> 2240, 7590, 45600, NA, 5500, 407, 111000, 5850, 205000, 61600…
$ `1980`  <dbl> 1760, 5170, 66500, NA, 5350, 143, 109000, 6080, 221000, 52300…
$ `1981`  <dbl> 1980.0, 7340.0, 46400.0, NA, 5280.0, 106.0, 102000.0, 5970.0,…
$ `1982`  <dbl> 2100, 7310, 39300, NA, 4650, 293, 103000, 6080, 234000, 53900…
$ `1983`  <dbl> 2520.0, 7630.0, 52600.0, NA, 5120.0, 84.3, 105000.0, 6170.0, …
$ `1984`  <dbl> 2830.0, 7830.0, 71100.0, NA, 5010.0, 147.0, 107000.0, 6230.0,…
$ `1985`  <dbl> 3510.0, 7880.0, 72800.0, NA, 4700.0, 249.0, 101000.0, 6710.0,…
$ `1986`  <dbl> 3140, 8060, 76300, NA, 4660, 249, 104000, 6730, 240000, 54100…
$ `1987`  <dbl> 3120, 7440, 84100, NA, 5820, 275, 115000, 7020, 256000, 57700…
$ `1988`  <dbl> 2870, 7330, 83900, NA, 5130, 286, 121000, 7210, 261000, 53300…
$ `1989`  <dbl> 2780.0, 8980.0, 80000.0, NA, 5010.0, 286.0, 117000.0, 7060.0,…
$ `1990`  <dbl> 2610, 5520, 77000, 407, 5120, 282, 112000, 6620, 264000, 5770…
$ `1991`  <dbl> 2440, 4290, 79000, 407, 5090, 268, 117000, 6380, 261000, 6160…
$ `1992`  <dbl> 1390, 2520, 80100, 407, 5200, 264, 121000, 5830, 268000, 5670…
$ `1993`  <dbl> 1350, 2340, 82200, 411, 5780, 271, 118000, 2560, 277000, 5710…
$ `1994`  <dbl> 1290, 1930, 86400, 407, 3890, 268, 122000, 2710, 278000, 5710…
$ `1995`  <dbl> 1240, 2090, 95300, 425, 11000, 275, 128000, 3410, 282000, 598…
$ `1996`  <dbl> 1180, 2020, 97100, 455, 10500, 293, 135000, 2560, 302000, 632…
$ `1997`  <dbl> 1100, 1540, 87300, 466, 7380, 308, 138000, 3230, 306000, 6270…
$ `1998`  <dbl> 1040, 1750, 107000, 491, 7310, 319, 140000, 3360, 317000, 637…
$ `1999`  <dbl> 821, 2980, 92000, 513, 9160, 330, 147000, 3010, 325000, 61900…
$ `2000`  <dbl> 774, 3020, 87900, 524, 9540, 345, 142000, 3470, 329000, 62300…
$ `2001`  <dbl> 818, 3220, 84200, 524, 9730, 348, 134000, 3540, 325000, 65900…
$ `2002`  <dbl> 1070, 3750, 89900, 532, 12700, 370, 125000, 3040, 341000, 671…
$ `2003`  <dbl> 1200, 4290, 91600, 535, 9060, 403, 135000, 3430, 336000, 7220…
$ `2004`  <dbl> 950, 4170, 88500, 561, 18800, 422, 158000, 3640, 343000, 7240…
$ `2005`  <dbl> 1330, 4250, 107000, 576, 19200, 429, 162000, 4350, 350000, 74…
$ `2006`  <dbl> 1650, 3900, 101000, 546, 22300, 444, 175000, 4380, 365000, 72…
$ `2007`  <dbl> 2270, 3930, 109000, 539, 25200, 469, 175000, 5060, 372000, 69…
$ `2008`  <dbl> 4210, 4370, 110000, 539, 25700, 480, 189000, 5560, 386000, 69…
$ `2009`  <dbl> 6770, 4380, 121000, 517, 27800, 510, 180000, 4360, 395000, 62…
$ `2010`  <dbl> 8460, 4600, 119000, 517, 29100, 524, 188000, 4220, 391000, 67…
$ `2011`  <dbl> 12200, 5240, 121000, 491, 30300, 513, 192000, 4920, 392000, 6…
$ `2012`  <dbl> 10800, 4910, 130000, 488, 33400, 524, 192000, 5690, 388000, 6…
$ `2013`  <dbl> 10000, 5060, 134000, 477, 32600, 524, 190000, 5500, 372000, 6…
$ `2014`  <dbl> 9810, 5720, 145000, 462, 34800, 532, 204000, 5530, 361000, 58…

We can see that we have a large tibble. A tibble is the tidyverse version of a data frame. It is essentially a table with variable information arranged as columns, and individual observations arranged as rows. We can see that the tibble gives us information about the class of each variable. For example the country variable is made up of character (abbreviated as chr) values. We see that we have 265 different country variables and CO2 emission values for 192 different years (from 1751 to 2014). Recall that the values are emissions in metric tons also called tonnes. We can see that there are fewer NA values for later years.

Now we will modify this data to make it more usable for making visualizations. One thing we will use is the %<>% opperator which is from the magrittr package. This allows us to use our CO2_emissions data and reassign it to a modified version at the same time.

We will use the pivot_longer() function of the dplyr package to convert our data into what is called long format. This means that we will have more rows and fewer columns than our current format. This is done by collapsing multiple variables into fewer variables.

We want to collapse all of the values for the emission data across the different individual year variables into one new emission variable and we will identify what year they are from using a new Year variable.

# A tibble: 6 x 3
  country     Year  Emissions
  <chr>       <chr>     <dbl>
1 Afghanistan 1751         NA
2 Afghanistan 1752         NA
3 Afghanistan 1753         NA
4 Afghanistan 1754         NA
5 Afghanistan 1755         NA
6 Afghanistan 1756         NA

We also want to rename the country variable to be capitalized. W We can use the rename() function of the dplyr package to rename this variable. When renaming variables the new name is listed first before the =. We will also modify the Emissions data by dividing it by 1000 to make the numbers smaller. To do this we will use the mutate() function, which is also part of the dplyr() package. This function allows us to create and modify variables. You may also note that the Year variable is currently of class type character. We would like to change it to be numeric. This can also be accomplished using the mutate() function.

Now let’s take a look to see how our data has changed:

# A tibble: 6 x 3
  Country      Year `CO2 Emissions (Mg)`
  <chr>       <dbl>                <dbl>
1 Afghanistan  1751                   NA
2 Afghanistan  1752                   NA
3 Afghanistan  1753                   NA
4 Afghanistan  1754                   NA
5 Afghanistan  1755                   NA
6 Afghanistan  1756                   NA

Great, we can see that now the Year variable is of class double (abbreviated dbl), which is a numeric class.

Yearly Growth in GDP per Capita

# A tibble: 6 x 220
  country   `1801`   `1802`   `1803`   `1804`   `1805`   `1806`   `1807`
  <chr>      <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>
1 Afghan… NA       NA       NA       NA       NA       NA       NA      
2 Albania  0.104    0.104    0.104    0.104    0.104    0.104    0.104  
3 Algeria -0.00247 -0.00247 -0.00247 -0.00247 -0.00247 -0.00247 -0.00247
4 Andorra  0.166    0.166    0.166    0.166    0.166    0.166    0.166  
5 Angola   0.425    0.425    0.425    0.425    0.425    0.425    0.425  
6 Antigu… NA       NA       NA       NA       NA       NA       NA      
# … with 212 more variables: `1808` <dbl>, `1809` <dbl>, `1810` <dbl>,
#   `1811` <dbl>, `1812` <dbl>, `1813` <dbl>, `1814` <dbl>, `1815` <dbl>,
#   `1816` <dbl>, `1817` <dbl>, `1818` <dbl>, `1819` <dbl>, `1820` <dbl>,
#   `1821` <dbl>, `1822` <dbl>, `1823` <dbl>, `1824` <dbl>, `1825` <dbl>,
#   `1826` <dbl>, `1827` <dbl>, `1828` <dbl>, `1829` <dbl>, `1830` <dbl>,
#   `1831` <dbl>, `1832` <dbl>, `1833` <dbl>, `1834` <dbl>, `1835` <dbl>,
#   `1836` <dbl>, `1837` <dbl>, `1838` <dbl>, `1839` <dbl>, `1840` <dbl>,
#   `1841` <dbl>, `1842` <dbl>, `1843` <dbl>, `1844` <dbl>, `1845` <dbl>,
#   `1846` <dbl>, `1847` <dbl>, `1848` <dbl>, `1849` <dbl>, `1850` <dbl>,
#   `1851` <dbl>, `1852` <dbl>, `1853` <dbl>, `1854` <dbl>, `1855` <dbl>,
#   `1856` <dbl>, `1857` <dbl>, `1858` <dbl>, `1859` <dbl>, `1860` <dbl>,
#   `1861` <dbl>, `1862` <dbl>, `1863` <dbl>, `1864` <dbl>, `1865` <dbl>,
#   `1866` <dbl>, `1867` <dbl>, `1868` <dbl>, `1869` <dbl>, `1870` <dbl>,
#   `1871` <dbl>, `1872` <dbl>, `1873` <dbl>, `1874` <dbl>, `1875` <dbl>,
#   `1876` <dbl>, `1877` <dbl>, `1878` <dbl>, `1879` <dbl>, `1880` <dbl>,
#   `1881` <dbl>, `1882` <dbl>, `1883` <dbl>, `1884` <dbl>, `1885` <dbl>,
#   `1886` <dbl>, `1887` <dbl>, `1888` <dbl>, `1889` <dbl>, `1890` <dbl>,
#   `1891` <dbl>, `1892` <dbl>, `1893` <dbl>, `1894` <dbl>, `1895` <dbl>,
#   `1896` <dbl>, `1897` <dbl>, `1898` <dbl>, `1899` <dbl>, `1900` <dbl>,
#   `1901` <dbl>, `1902` <dbl>, `1903` <dbl>, `1904` <dbl>, `1905` <dbl>,
#   `1906` <dbl>, `1907` <dbl>, …
  [1] "country" "1801"    "1802"    "1803"    "1804"    "1805"    "1806"   
  [8] "1807"    "1808"    "1809"    "1810"    "1811"    "1812"    "1813"   
 [15] "1814"    "1815"    "1816"    "1817"    "1818"    "1819"    "1820"   
 [22] "1821"    "1822"    "1823"    "1824"    "1825"    "1826"    "1827"   
 [29] "1828"    "1829"    "1830"    "1831"    "1832"    "1833"    "1834"   
 [36] "1835"    "1836"    "1837"    "1838"    "1839"    "1840"    "1841"   
 [43] "1842"    "1843"    "1844"    "1845"    "1846"    "1847"    "1848"   
 [50] "1849"    "1850"    "1851"    "1852"    "1853"    "1854"    "1855"   
 [57] "1856"    "1857"    "1858"    "1859"    "1860"    "1861"    "1862"   
 [64] "1863"    "1864"    "1865"    "1866"    "1867"    "1868"    "1869"   
 [71] "1870"    "1871"    "1872"    "1873"    "1874"    "1875"    "1876"   
 [78] "1877"    "1878"    "1879"    "1880"    "1881"    "1882"    "1883"   
 [85] "1884"    "1885"    "1886"    "1887"    "1888"    "1889"    "1890"   
 [92] "1891"    "1892"    "1893"    "1894"    "1895"    "1896"    "1897"   
 [99] "1898"    "1899"    "1900"    "1901"    "1902"    "1903"    "1904"   
[106] "1905"    "1906"    "1907"    "1908"    "1909"    "1910"    "1911"   
[113] "1912"    "1913"    "1914"    "1915"    "1916"    "1917"    "1918"   
[120] "1919"    "1920"    "1921"    "1922"    "1923"    "1924"    "1925"   
[127] "1926"    "1927"    "1928"    "1929"    "1930"    "1931"    "1932"   
[134] "1933"    "1934"    "1935"    "1936"    "1937"    "1938"    "1939"   
[141] "1940"    "1941"    "1942"    "1943"    "1944"    "1945"    "1946"   
[148] "1947"    "1948"    "1949"    "1950"    "1951"    "1952"    "1953"   
[155] "1954"    "1955"    "1956"    "1957"    "1958"    "1959"    "1960"   
[162] "1961"    "1962"    "1963"    "1964"    "1965"    "1966"    "1967"   
[169] "1968"    "1969"    "1970"    "1971"    "1972"    "1973"    "1974"   
[176] "1975"    "1976"    "1977"    "1978"    "1979"    "1980"    "1981"   
[183] "1982"    "1983"    "1984"    "1985"    "1986"    "1987"    "1988"   
[190] "1989"    "1990"    "1991"    "1992"    "1993"    "1994"    "1995"   
[197] "1996"    "1997"    "1998"    "1999"    "2000"    "2001"    "2002"   
[204] "2003"    "2004"    "2005"    "2006"    "2007"    "2008"    "2009"   
[211] "2010"    "2011"    "2012"    "2013"    "2014"    "2015"    "2016"   
[218] "2017"    "2018"    "2019"   

Rows: 194
Columns: 220
$ country <chr> "Afghanistan", "Albania", "Algeria", "Andorra", "Angola", "An…
$ `1801`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1802`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1803`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1804`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1805`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1806`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1807`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1808`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1809`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1810`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1811`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1812`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1813`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1814`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1815`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1816`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1817`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1818`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1819`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1820`  <dbl> NA, 0.10400, -0.00247, 0.16600, 0.42500, NA, NA, NA, 0.21600,…
$ `1821`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1822`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1823`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1824`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1825`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1826`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1827`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1828`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1829`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1830`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1831`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1832`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1833`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1834`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1835`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1836`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1837`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1838`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1839`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1840`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1841`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1842`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1843`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1844`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1845`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1846`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1847`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1848`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1849`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1850`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1851`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1852`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1853`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1854`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1855`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1856`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1857`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1858`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1859`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1860`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1861`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1862`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1863`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1864`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1865`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1866`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1867`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1868`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1869`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1870`  <dbl> 0.32500, 0.21300, 1.02000, 1.17000, 0.42500, 0.66100, 1.41000…
$ `1871`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 1.410, 0.371, 0.772…
$ `1872`  <dbl> 0.3250, 1.4700, 1.1400, 1.1700, 0.4250, 0.6610, 1.4100, 0.371…
$ `1873`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 1.410, 0.371, 7.600…
$ `1874`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 1.410, 0.371, 0.292…
$ `1875`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 1.410, 0.371, 7.910…
$ `1876`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -0.952, 0.371, -3.1…
$ `1877`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 7.210, 0.371, 0.720…
$ `1878`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -8.110, 0.371, 5.98…
$ `1879`  <dbl> 0.3250, 1.4700, 1.1400, 1.1700, 0.4250, 0.6610, 1.2700, 0.371…
$ `1880`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -5.020, 0.371, 1.91…
$ `1881`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -1.500, 0.371, 3.95…
$ `1882`  <dbl> 0.3250, 1.4700, 1.1400, 1.1700, 0.4250, 0.6610, 22.8000, 0.37…
$ `1883`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 9.000, 0.371, 10.20…
$ `1884`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 3.980, 0.371, -3.84…
$ `1885`  <dbl> 0.3250, 1.4700, 1.1400, 1.1700, 0.4250, 0.6610, 14.2000, 0.37…
$ `1886`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -2.700, -4.080, -2.…
$ `1887`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 3.690, 16.700, 6.98…
$ `1888`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 12.900, -4.020, -2.…
$ `1889`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, 6.590, -7.220, 5.40…
$ `1890`  <dbl> 0.325, 1.470, 1.140, 1.170, 0.425, 0.661, -11.300, -0.635, -6…
$ `1891`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, -8.460, -8.610, 4.6…
$ `1892`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 16.300, 9.230, -14.…
$ `1893`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 2.840, 13.100, -7.2…
$ `1894`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 12.200, 13.400, 1.5…
$ `1895`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 7.760, -7.670, -7.3…
$ `1896`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 7.520, 9.890, 5.670…
$ `1897`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, -21.900, -1.890, -7…
$ `1898`  <dbl> 0.3250, 1.3700, 1.1400, 1.1700, 0.4250, 0.6610, 5.4600, 2.430…
$ `1899`  <dbl> 0.325, 1.370, 1.140, 1.170, 0.425, 0.661, 14.700, 5.880, -1.3…
$ `1900`  <dbl> 0.3250, 1.3700, 1.1400, 1.1700, 0.4250, 0.6610, -14.8000, -2.…
$ `1901`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 5.620, 2.270, -4.35…
$ `1902`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, -4.850, 8.420, -0.4…
$ `1903`  <dbl> 0.3250, 1.3100, 1.1400, 1.1700, 0.4250, 0.6610, 11.5000, -7.1…
$ `1904`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 7.830, 10.300, 5.36…
$ `1905`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 10.400, -11.700, -0…
$ `1906`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 0.392, -4.640, 5.26…
$ `1907`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, -2.530, -4.130, 2.4…
$ `1908`  <dbl> 0.3250, 1.3100, 1.1400, 1.1700, 0.4250, 0.6610, 5.1600, 8.960…
$ `1909`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 0.294, 3.590, 6.130…
$ `1910`  <dbl> 0.325, 1.310, 1.140, 1.170, 0.425, 0.661, 2.640, 6.460, 4.600…
$ `1911`  <dbl> 0.32500, 1.28000, 1.14000, 1.17000, 0.42500, 0.66100, -2.2000…
$ `1912`  <dbl> 0.32500, 1.28000, 1.14000, 1.17000, 0.42500, 0.66100, 4.17000…
$ `1913`  <dbl> 0.32500, 1.28000, 1.14000, 1.17000, 0.42500, 0.66100, -2.9600…
$ `1914`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -14.300, -4.720, -2…
$ `1915`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -3.470, 2.690, -2.5…
$ `1916`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -4.610, -3.150, -0.…
$ `1917`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -9.830, -16.700, -1…
$ `1918`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 16.600, -16.700, -3…
$ `1919`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 1.950, -16.700, 2.4…
$ `1920`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 5.550, -5.070, 1.06…
$ `1921`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -0.488, -5.070, 3.0…
$ `1922`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 4.950, 8.450, 3.110…
$ `1923`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 7.970, 8.450, 2.540…
$ `1924`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 4.750, 8.450, 4.340…
$ `1925`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, -3.460, 8.450, 2.50…
$ `1926`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 2.080, 8.450, 0.351…
$ `1927`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 4.350, 8.450, -0.51…
$ `1928`  <dbl> 0.46300, 0.83700, 0.43200, 3.80000, 2.96000, 2.45000, 3.45000…
$ `1929`  <dbl> 0.463, 0.837, 0.432, 3.800, 2.960, 2.450, 1.860, 8.450, -3.46…
$ `1930`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -6.880, 4.280, -10.…
$ `1931`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -8.810, 0.680, -7.5…
$ `1932`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -5.180, -1.760, 4.8…
$ `1933`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 2.830, 3.530, 6.110…
$ `1934`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 6.020, 8.930, 4.490…
$ `1935`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 2.480, 14.100, 5.09…
$ `1936`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -0.737, 6.560, 3.73…
$ `1937`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 5.680, 8.050, 4.170…
$ `1938`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -1.260, -0.505, 2.4…
$ `1939`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 2.260, 3.820, -0.69…
$ `1940`  <dbl> 0.4630, 0.3720, 0.4320, 3.8000, 2.9600, 2.4500, 0.0522, -4.38…
$ `1941`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 3.670, -2.100, 10.1…
$ `1942`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -0.457, -2.100, 10.…
$ `1943`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -2.240, -2.100, 2.6…
$ `1944`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 9.710, -2.100, -4.4…
$ `1945`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -4.770, -2.100, -6.…
$ `1946`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 6.610, -2.100, -4.6…
$ `1947`  <dbl> 0.4630, 0.3720, 0.4320, 3.8000, 2.9600, 2.4500, 8.8000, 10.90…
$ `1948`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, 3.160, 12.700, 4.55…
$ `1949`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -3.620, 8.980, 3.87…
$ `1950`  <dbl> 0.463, 0.372, 0.432, 3.800, 2.960, 2.450, -1.110, 8.070, 2.42…
$ `1951`  <dbl> 1.250, 4.320, -1.300, 3.800, 2.320, 2.450, 1.750, -1.470, 1.2…
$ `1952`  <dbl> 1.660, 0.160, 2.150, 3.800, 2.320, 2.450, -7.090, 4.430, -1.1…
$ `1953`  <dbl> 4.290, 4.040, -0.517, 3.800, 2.220, 2.450, 3.320, 2.360, 1.18…
$ `1954`  <dbl> 0.3080, 2.9400, 4.9900, 3.8000, -4.1100, 2.4500, 2.2100, 2.87…
$ `1955`  <dbl> 0.129, 5.390, 0.573, 3.800, 6.410, 2.450, 5.200, 6.420, 3.040…
$ `1956`  <dbl> 2.530, 1.010, 7.460, 3.800, -3.350, 2.450, 0.962, 7.410, 1.01…
$ `1957`  <dbl> -1.9400, 6.4100, 9.0300, 3.8000, 7.8600, 2.4500, 3.4200, 0.04…
$ `1958`  <dbl> 3.520, 4.500, 1.510, 3.800, 3.620, 2.450, 4.390, 5.390, 2.660…
$ `1959`  <dbl> 0.764, 4.120, 16.000, 3.800, -1.230, 2.450, -8.140, -3.080, 3…
$ `1960`  <dbl> 1.430, 5.060, 4.750, 3.800, 2.260, 2.450, 6.220, 7.290, 1.880…
$ `1961`  <dbl> -1.280, 0.831, -13.800, 3.800, 11.400, 2.450, 5.480, 3.870, -…
$ `1962`  <dbl> -0.497, 3.310, -20.400, 3.800, -4.360, 2.450, -3.180, 1.030, …
$ `1963`  <dbl> -0.429, 3.410, 23.400, 3.800, 3.380, 2.450, -3.930, -3.740, 4…
$ `1964`  <dbl> -0.374, 3.420, 2.160, 3.800, 9.360, 2.450, 8.760, 11.400, 4.7…
$ `1965`  <dbl> -0.124, 3.650, 3.530, 3.800, 5.710, 2.450, 7.640, 4.390, 3.08…
$ `1966`  <dbl> -1.370, 3.750, -7.730, 3.800, 4.040, 2.450, -0.829, 3.670, 0.…
$ `1967`  <dbl> 0.310, 3.760, 5.740, 3.800, 4.040, 2.450, 1.220, 3.310, 4.800…
$ `1968`  <dbl> 1.06, 3.61, 8.40, 3.80, -3.19, 2.45, 2.87, 4.81, 3.87, 3.90, …
$ `1969`  <dbl> -0.883, 3.400, 6.480, 3.800, 1.150, 2.450, 7.080, 0.450, 3.70…
$ `1970`  <dbl> -0.514, 3.690, 6.830, 3.800, 4.510, 2.450, 3.850, 6.690, 4.00…
$ `1971`  <dbl> -7.160, 4.000, -11.100, -0.603, 3.880, 4.800, 2.130, 1.650, 2…
$ `1972`  <dbl> -4.360, 3.920, 17.500, 2.760, -1.970, 4.720, 0.370, -0.430, 0…
$ `1973`  <dbl> 8.580, 4.980, 0.285, 2.630, 5.680, 6.090, 2.020, 7.380, 3.820…
$ `1974`  <dbl> 2.750, 0.373, 3.010, 0.870, 0.714, 1.700, 3.700, 1.070, 0.831…
$ `1975`  <dbl> 2.5300, 0.3480, 3.8900, -3.5900, -7.3700, -6.2900, -2.2400, -…
$ `1976`  <dbl> 2.330, 0.400, 3.420, -0.531, -7.630, -8.910, -1.580, 2.850, 2…
$ `1977`  <dbl> -9.2400, 0.4380, 5.7700, -0.6340, -1.8700, 8.2100, 4.8600, 0.…
$ `1978`  <dbl> 5.210, 0.460, 9.420, -1.920, -7.870, 4.990, -4.730, 0.760, 1.…
$ `1979`  <dbl> -2.180, 0.487, 5.750, -3.670, -2.600, 12.600, 5.440, -2.140, …
$ `1980`  <dbl> 0.1680, 0.7060, -1.2600, -2.1000, -0.4710, 8.3500, 0.0163, -1…
$ `1981`  <dbl> 10.700, 0.536, -0.656, -4.970, -7.610, 6.330, -6.960, -0.756,…
$ `1982`  <dbl> 9.0500, 0.5500, 3.0800, -4.0500, -3.5200, 1.5500, -4.5000, 0.…
$ `1983`  <dbl> 3.59000, 0.58400, 1.89000, -3.47000, 0.52000, 8.03000, 2.6700…
$ `1984`  <dbl> -1.830, 0.569, 2.270, -2.810, 2.440, 8.850, 0.681, -0.516, 5.…
$ `1985`  <dbl> -3.280, 0.523, 2.020, -1.370, 0.316, 9.540, -8.340, -0.847, 3…
$ `1986`  <dbl> 7.170, 0.635, -3.790, 0.612, 0.332, 10.700, 5.880, 2.330, 0.6…
$ `1987`  <dbl> -17.3000, 0.6290, -3.3100, 3.7300, 4.3100, 11.3000, 1.2500, -…
$ `1988`  <dbl> -9.660, 0.633, -4.670, 3.540, 3.020, 10.000, -3.220, 0.453, 2…
$ `1989`  <dbl> -2.410, 0.754, 0.771, 2.780, -2.140, 7.540, -8.340, 0.135, 2.…
$ `1990`  <dbl> -5.5800, 0.8930, -3.9100, 0.8110, -3.1700, 3.2300, -3.2200, -…
$ `1991`  <dbl> -0.572, -28.900, -3.490, -1.470, -2.030, 1.540, 9.290, -13.30…
$ `1992`  <dbl> -7.950, -8.100, -0.752, -3.740, -8.830, -0.632, 8.540, -40.80…
$ `1993`  <dbl> -13.900, 8.780, -4.440, -5.650, -26.400, 3.080, 4.660, -4.660…
$ `1994`  <dbl> -10.400, 7.440, -3.070, -1.650, -1.860, 3.660, 4.770, 8.960, …
$ `1995`  <dbl> 20.300, 12.600, 1.710, -0.114, 11.600, -6.630, -3.910, 8.900,…
$ `1996`  <dbl> 2.660, 8.650, 1.940, 3.090, 16.600, 3.900, 4.460, 6.080, 2.48…
$ `1997`  <dbl> 2.8200, -10.6000, -0.5580, 8.5900, 2.7000, 2.3400, 7.0500, 3.…
$ `1998`  <dbl> 2.8300, 12.3000, 3.5000, 3.3000, -2.6300, 1.8200, 2.7900, 7.6…
$ `1999`  <dbl> 2.7100, 9.5800, 1.6800, 4.0100, 0.3870, 1.6900, -4.4500, 3.35…
$ `2000`  <dbl> -1.0500, 6.7900, 0.9950, 0.4010, -0.0561, -0.6830, -1.8500, 6…
$ `2001`  <dbl> -10.400, 6.690, 1.130, 10.000, -0.171, 0.251, -5.470, 10.100,…
$ `2002`  <dbl> 22.1000, 2.8600, 2.5500, 3.5800, 10.7000, 0.8110, -12.0000, 1…
$ `2003`  <dbl> 8.040, 5.450, 5.460, 4.170, -0.247, 3.670, 7.770, 14.400, 3.0…
$ `2004`  <dbl> 2.5000, 5.3600, 3.8400, 4.1800, 7.4500, 5.7500, 7.9200, 10.90…
$ `2005`  <dbl> 8.6100, 4.9600, 3.8000, 4.2100, 16.6000, 3.2900, 8.1200, 14.3…
$ `2006`  <dbl> 1.590, 5.270, 0.188, 2.370, 15.000, 11.300, 7.250, 13.100, 1.…
$ `2007`  <dbl> 10.800, 5.410, 1.850, -1.700, 19.600, 5.780, 7.440, 13.600, 2…
$ `2008`  <dbl> 0.117, 6.840, 0.472, -5.600, 10.600, 0.378, 5.570, 6.690, 0.7…
$ `2009`  <dbl> 17.300, 2.910, 0.179, -6.310, -0.464, -11.700, -0.276, -15.00…
$ `2010`  <dbl> 5.1700, 2.9800, 2.0600, -4.7800, 0.5940, -8.5300, 7.9400, 1.1…
$ `2011`  <dbl> 3.8500, 2.4900, 0.8570, -4.3000, 1.0300, -2.9600, 7.6500, 3.6…
$ `2012`  <dbl> 11.200, 2.280, 1.160, NA, 2.130, 2.790, 0.761, 6.920, 1.780, …
$ `2013`  <dbl> 1.130, 1.720, 1.610, NA, 1.030, 0.468, 3.090, 2.980, 1.170, 0…
$ `2014`  <dbl> 0.837, 2.610, 2.180, NA, 2.240, 1.620, -0.622, 4.050, 1.410, …
$ `2015`  <dbl> 2.110, 3.820, 2.100, NA, 2.460, 1.900, -0.128, 4.290, 1.480, …
$ `2016`  <dbl> 2.680, 4.720, 2.360, NA, 2.770, 2.200, 0.367, 4.490, 1.730, 1…
$ `2017`  <dbl> 2.760, 5.030, 2.500, NA, 0.262, 2.200, 0.861, 4.790, 1.700, 1…
$ `2018`  <dbl> 3.020, 5.030, 2.630, NA, 3.460, 2.200, 0.861, 4.790, 1.710, 1…
$ `2019`  <dbl> 3.380, 5.230, 2.680, NA, 3.550, 2.200, 0.861, 4.790, 1.770, 0…

Again, we will use the pivot_longer() to transform the data to long format. We will also again change the country variable to be Country by using the rename() function , and we will make the Year varaible numeric using the mutate() function.

We will use the drop_na() function of the tidyr package to drop all years with missing data.

Now let’s see how this data has changed:

# A tibble: 6 x 3
  Country      Year `GDP Growth/Capita (%)`
  <chr>       <dbl>                   <dbl>
1 Afghanistan  1801                      NA
2 Afghanistan  1802                      NA
3 Afghanistan  1803                      NA
4 Afghanistan  1804                      NA
5 Afghanistan  1805                      NA
6 Afghanistan  1806                      NA
# A tibble: 219 x 2
    Year     n
   <dbl> <int>
 1  1801   194
 2  1802   194
 3  1803   194
 4  1804   194
 5  1805   194
 6  1806   194
 7  1807   194
 8  1808   194
 9  1809   194
10  1810   194
# … with 209 more rows

Energy Use per Person

# A tibble: 6 x 57
  country `1960` `1961` `1962` `1963` `1964` `1965` `1966` `1967` `1968` `1969`
  <chr>    <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
1 Albania     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
2 Algeria     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
3 Angola      NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
4 Antigu…     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
5 Argent…     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
6 Armenia     NA     NA     NA     NA     NA     NA     NA     NA     NA     NA
# … with 46 more variables: `1970` <dbl>, `1971` <dbl>, `1972` <dbl>,
#   `1973` <dbl>, `1974` <dbl>, `1975` <dbl>, `1976` <dbl>, `1977` <dbl>,
#   `1978` <dbl>, `1979` <dbl>, `1980` <dbl>, `1981` <dbl>, `1982` <dbl>,
#   `1983` <dbl>, `1984` <dbl>, `1985` <dbl>, `1986` <dbl>, `1987` <dbl>,
#   `1988` <dbl>, `1989` <dbl>, `1990` <dbl>, `1991` <dbl>, `1992` <dbl>,
#   `1993` <dbl>, `1994` <dbl>, `1995` <dbl>, `1996` <dbl>, `1997` <dbl>,
#   `1998` <dbl>, `1999` <dbl>, `2000` <dbl>, `2001` <dbl>, `2002` <dbl>,
#   `2003` <dbl>, `2004` <dbl>, `2005` <dbl>, `2006` <dbl>, `2007` <dbl>,
#   `2008` <dbl>, `2009` <dbl>, `2010` <dbl>, `2011` <dbl>, `2012` <dbl>,
#   `2013` <dbl>, `2014` <dbl>, `2015` <dbl>
Rows: 169
Columns: 57
$ country <chr> "Albania", "Algeria", "Angola", "Antigua and Barbuda", "Argen…
$ `1960`  <dbl> NA, NA, NA, NA, NA, NA, 3060, 1550, NA, NA, NA, NA, NA, NA, 2…
$ `1961`  <dbl> NA, NA, NA, NA, NA, NA, 3120, 1550, NA, NA, NA, NA, NA, NA, 2…
$ `1962`  <dbl> NA, NA, NA, NA, NA, NA, 3170, 1680, NA, NA, NA, NA, NA, NA, 2…
$ `1963`  <dbl> NA, NA, NA, NA, NA, NA, 3280, 1820, NA, NA, NA, NA, NA, NA, 3…
$ `1964`  <dbl> NA, NA, NA, NA, NA, NA, 3350, 1860, NA, NA, NA, NA, NA, NA, 3…
$ `1965`  <dbl> NA, NA, NA, NA, NA, NA, 3460, 1850, NA, NA, NA, NA, NA, NA, 3…
$ `1966`  <dbl> NA, NA, NA, NA, NA, NA, 3550, 1900, NA, NA, NA, NA, NA, NA, 3…
$ `1967`  <dbl> NA, NA, NA, NA, NA, NA, 3690, 1920, NA, NA, NA, NA, NA, NA, 3…
$ `1968`  <dbl> NA, NA, NA, NA, NA, NA, 3760, 2050, NA, NA, NA, NA, NA, NA, 3…
$ `1969`  <dbl> NA, NA, NA, NA, NA, NA, 3790, 2180, NA, NA, NA, NA, NA, NA, 3…
$ `1970`  <dbl> NA, NA, NA, NA, NA, NA, 4060, 2420, NA, NA, NA, NA, NA, NA, 4…
$ `1971`  <dbl> 785.0, 232.0, 556.0, NA, 1380.0, NA, 3990.0, 2510.0, NA, NA, …
$ `1972`  <dbl> 866.0, 261.0, 584.0, NA, 1380.0, NA, 4040.0, 2630.0, NA, NA, …
$ `1973`  <dbl> 763.0, 305.0, 568.0, NA, 1410.0, NA, 4260.0, 2830.0, NA, NA, …
$ `1974`  <dbl> 777.0, 319.0, 565.0, NA, 1420.0, NA, 4290.0, 2730.0, NA, NA, …
$ `1975`  <dbl> 827.0, 330.0, 536.0, NA, 1380.0, NA, 4350.0, 2650.0, NA, NA, …
$ `1976`  <dbl> 891, 367, 515, NA, 1400, NA, 4410, 2870, NA, NA, 9580, 98, NA…
$ `1977`  <dbl> 924.0, 399.0, 494.0, NA, 1420.0, NA, 4670.0, 2800.0, NA, NA, …
$ `1978`  <dbl> 1010.0, 477.0, 527.0, NA, 1430.0, NA, 4630.0, 2890.0, NA, NA,…
$ `1979`  <dbl> 864.0, 586.0, 518.0, NA, 1480.0, NA, 4680.0, 3140.0, NA, NA, …
$ `1980`  <dbl> 1150, 579, 511, NA, 1490, NA, 4740, 3070, NA, NA, 7790, 103, …
$ `1981`  <dbl> 989, 611, 497, NA, 1430, NA, 4690, 2900, NA, NA, 8300, 102, N…
$ `1982`  <dbl> 967, 771, 473, NA, 1420, NA, 4820, 2830, NA, NA, 9070, 105, N…
$ `1983`  <dbl> 1000, 808, 469, NA, 1420, NA, 4560, 2840, NA, NA, 8500, 105, …
$ `1984`  <dbl> 1020, 776, 458, NA, 1450, NA, 4650, 2950, NA, NA, 8830, 104, …
$ `1985`  <dbl> 917, 786, 470, NA, 1360, NA, 4600, 3050, NA, NA, 9920, 107, N…
$ `1986`  <dbl> 964, 862, 462, NA, 1420, NA, 4620, 3060, NA, NA, 10300, 111, …
$ `1987`  <dbl> 922, 828, 461, NA, 1480, NA, 4770, 3170, NA, NA, 9520, 107, N…
$ `1988`  <dbl> 928, 850, 467, NA, 1500, NA, 4700, 3200, NA, NA, 10500, 114, …
$ `1989`  <dbl> 896, 820, 465, NA, 1440, NA, 5000, 3140, NA, NA, 10200, 117, …
$ `1990`  <dbl> 813, 856, 483, 1480, 1410, 2180, 5060, 3240, 3170, 2520, 1060…
$ `1991`  <dbl> 573, 884, 480, NA, 1430, 2320, 4930, 3420, 3090, NA, 10100, 1…
$ `1992`  <dbl> 418, 884, 467, NA, 1480, 1200, 4960, 3250, 2460, NA, 10800, 1…
$ `1993`  <dbl> 412, 868, 468, NA, 1470, 652, 5150, 3260, 2180, NA, 11100, 12…
$ `1994`  <dbl> 441, 819, 459, NA, 1540, 420, 5090, 3230, 1950, NA, 11600, 12…
$ `1995`  <dbl> 417, 839, 445, NA, 1540, 511, 5130, 3370, 1810, NA, 11400, 13…
$ `1996`  <dbl> 448, 798, 445, NA, 1580, 562, 5390, 3580, 1510, NA, 11100, 13…
$ `1997`  <dbl> 385, 805, 443, NA, 1610, 594, 5470, 3550, 1440, NA, 12200, 13…
$ `1998`  <dbl> 427, 821, 430, NA, 1650, 610, 5550, 3610, 1490, NA, 12400, 13…
$ `1999`  <dbl> 576, 864, 439, NA, 1660, 594, 5610, 3590, 1370, NA, 11900, 13…
$ `2000`  <dbl> 580, 866, 437, NA, 1660, 656, 5640, 3570, 1400, NA, 12000, 13…
$ `2001`  <dbl> 597, 856, 442, NA, 1560, 657, 5450, 3760, 1410, NA, 11700, 14…
$ `2002`  <dbl> 660, 904, 447, NA, 1500, 618, 5570, 3770, 1410, NA, 11500, 15…
$ `2003`  <dbl> 648, 949, 466, NA, 1590, 657, 5570, 3970, 1480, NA, 11600, 15…
$ `2004`  <dbl> 715, 948, 462, 1530, 1720, 698, 5600, 4010, 1540, 2060, 10900…
$ `2005`  <dbl> 720, 974, 431, 1530, 1710, 843, 5560, 4090, 1600, 2110, 11700…
$ `2006`  <dbl> 707, 1030, 456, 1580, 1840, 865, 5710, 4080, 1560, 2100, 1160…
$ `2007`  <dbl> 680, 1070, 470, 1600, 1850, 973, 5870, 4020, 1410, 2070, 1120…
$ `2008`  <dbl> 711, 1070, 491, NA, 1920, 1030, 5960, 4030, 1520, NA, 11300, …
$ `2009`  <dbl> 732, 1150, 514, NA, 1850, 904, 5860, 3800, 1330, NA, 10300, 1…
$ `2010`  <dbl> 729, 1110, 521, NA, 1910, 863, 5790, 4050, 1280, NA, 10200, 2…
$ `2011`  <dbl> 765, 1140, 522, NA, 1930, 944, 5750, 3920, 1370, NA, 9910, 20…
$ `2012`  <dbl> 688, 1220, 553, NA, 1920, 1030, 5570, 3890, 1470, NA, 9660, 2…
$ `2013`  <dbl> 801, 1240, 534, NA, 1950, 1000, 5460, 3920, 1470, NA, 10400, …
$ `2014`  <dbl> 808, 1320, 545, NA, 2020, 1020, 5330, 3760, 1500, NA, 10600, …
$ `2015`  <dbl> NA, NA, NA, NA, NA, NA, 5480, 3800, NA, NA, NA, NA, NA, NA, 4…

Rows: 9,464
Columns: 3
$ Country                           <chr> "Albania", "Albania", "Albania", "A…
$ Year                              <dbl> 1960, 1961, 1962, 1963, 1964, 1965,…
$ `Energy Use (kg, oil-eq./capita)` <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA,…

Crude Mortality Rate

# A tibble: 6 x 64
  `Data Source` `World Developm… ...3  ...4  ...5  ...6  ...7  ...8  ...9  ...10
  <chr>         <chr>            <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 Last Updated… 43819            <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> 
2 <NA>          <NA>             <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> 
3 Country Name  Country Code     Indi… Indi… 1960  1961  1962  1963  1964  1965 
4 Aruba         ABW              Deat… SP.D… 6.38… 6.24… 6.11… 6.01… 5.91… 5.83…
5 Afghanistan   AFG              Deat… SP.D… 32.2… 31.6… 31.0… 30.5… 30.0… 29.5…
6 Angola        AGO              Deat… SP.D… 27.0… 26.8… 26.6… 26.4… 26.1… 25.9…
# … with 54 more variables: ...11 <chr>, ...12 <chr>, ...13 <chr>, ...14 <chr>,
#   ...15 <chr>, ...16 <chr>, ...17 <chr>, ...18 <chr>, ...19 <chr>,
#   ...20 <chr>, ...21 <chr>, ...22 <chr>, ...23 <chr>, ...24 <chr>,
#   ...25 <chr>, ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>,
#   ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>, ...34 <chr>,
#   ...35 <chr>, ...36 <chr>, ...37 <chr>, ...38 <chr>, ...39 <chr>,
#   ...40 <chr>, ...41 <chr>, ...42 <chr>, ...43 <chr>, ...44 <chr>,
#   ...45 <chr>, ...46 <chr>, ...47 <chr>, ...48 <chr>, ...49 <chr>,
#   ...50 <chr>, ...51 <chr>, ...52 <chr>, ...53 <chr>, ...54 <chr>,
#   ...55 <chr>, ...56 <chr>, ...57 <chr>, ...58 <chr>, ...59 <chr>,
#   ...60 <chr>, ...61 <chr>, ...62 <chr>, ...63 <chr>, ...64 <chr>

We can see that there are a couple of empty rows which indicate when the data was updated. We can also see that the columns really start at the 3rd row. So first we will repace the column names with the 3rd row. Then we will remove the first 3 rows.

 [1] "Data Source"                  "World Development Indicators"
 [3] "...3"                         "...4"                        
 [5] "...5"                         "...6"                        
 [7] "...7"                         "...8"                        
 [9] "...9"                         "...10"                       
[11] "...11"                        "...12"                       
[13] "...13"                        "...14"                       
[15] "...15"                        "...16"                       
[17] "...17"                        "...18"                       
[19] "...19"                        "...20"                       
[21] "...21"                        "...22"                       
[23] "...23"                        "...24"                       
[25] "...25"                        "...26"                       
[27] "...27"                        "...28"                       
[29] "...29"                        "...30"                       
[31] "...31"                        "...32"                       
[33] "...33"                        "...34"                       
[35] "...35"                        "...36"                       
[37] "...37"                        "...38"                       
[39] "...39"                        "...40"                       
[41] "...41"                        "...42"                       
[43] "...43"                        "...44"                       
[45] "...45"                        "...46"                       
[47] "...47"                        "...48"                       
[49] "...49"                        "...50"                       
[51] "...51"                        "...52"                       
[53] "...53"                        "...54"                       
[55] "...55"                        "...56"                       
[57] "...57"                        "...58"                       
[59] "...59"                        "...60"                       
[61] "...61"                        "...62"                       
[63] "...63"                        "...64"                       
 [1] "Country Name"   "Country Code"   "Indicator Name" "Indicator Code"
 [5] "1960"           "1961"           "1962"           "1963"          
 [9] "1964"           "1965"           "1966"           "1967"          
[13] "1968"           "1969"           "1970"           "1971"          
[17] "1972"           "1973"           "1974"           "1975"          
[21] "1976"           "1977"           "1978"           "1979"          
[25] "1980"           "1981"           "1982"           "1983"          
[29] "1984"           "1985"           "1986"           "1987"          
[33] "1988"           "1989"           "1990"           "1991"          
[37] "1992"           "1993"           "1994"           "1995"          
[41] "1996"           "1997"           "1998"           "1999"          
[45] "2000"           "2001"           "2002"           "2003"          
[49] "2004"           "2005"           "2006"           "2007"          
[53] "2008"           "2009"           "2010"           "2011"          
[57] "2012"           "2013"           "2014"           "2015"          
[61] "2016"           "2017"           "2018"           "2019"          

Rows: 264
Columns: 64
$ `Country Name`   <chr> "Aruba", "Afghanistan", "Angola", "Albania", "Andorr…
$ `Country Code`   <chr> "ABW", "AFG", "AGO", "ALB", "AND", "ARB", "ARE", "AR…
$ `Indicator Name` <chr> "Death rate, crude (per 1,000 people)", "Death rate,…
$ `Indicator Code` <chr> "SP.DYN.CDRT.IN", "SP.DYN.CDRT.IN", "SP.DYN.CDRT.IN"…
$ `1960`           <chr> "6.3879999999999999", "32.219000000000001", "27.0970…
$ `1961`           <chr> "6.2409999999999997", "31.649000000000001", "26.8590…
$ `1962`           <chr> "6.1180000000000003", "31.093", "26.626999999999999"…
$ `1963`           <chr> "6.0119999999999996", "30.550999999999998", "26.407"…
$ `1964`           <chr> "5.9199999999999999", "30.021999999999998", "26.1939…
$ `1965`           <chr> "5.8390000000000004", "29.501000000000001", "25.9660…
$ `1966`           <chr> "5.7699999999999996", "28.984999999999999", "25.6900…
$ `1967`           <chr> "5.7160000000000002", "28.468", "25.341999999999999"…
$ `1968`           <chr> "5.6820000000000004", "27.946000000000002", "24.916"…
$ `1969`           <chr> "5.6660000000000004", "27.417999999999999", "24.4179…
$ `1970`           <chr> "5.6710000000000003", "26.879999999999999", "23.872"…
$ `1971`           <chr> "5.6980000000000004", "26.334", "23.312000000000001"…
$ `1972`           <chr> "5.7460000000000004", "25.780999999999999", "22.7770…
$ `1973`           <chr> "5.8120000000000003", "25.222000000000001", "22.2959…
$ `1974`           <chr> "5.8929999999999998", "24.658000000000001", "21.8850…
$ `1975`           <chr> "5.9809999999999999", "24.087", "21.547999999999998"…
$ `1976`           <chr> "6.0700000000000003", "23.507999999999999", "21.276"…
$ `1977`           <chr> "6.157", "22.920000000000002", "21.047000000000001",…
$ `1978`           <chr> "6.2359999999999998", "22.324000000000002", "20.8389…
$ `1979`           <chr> "6.3079999999999998", "21.719999999999999", "20.6469…
$ `1980`           <chr> "6.3760000000000003", "21.109000000000002", "20.4669…
$ `1981`           <chr> "6.444", "20.489999999999998", "20.297999999999998",…
$ `1982`           <chr> "6.5190000000000001", "19.864999999999998", "20.145"…
$ `1983`           <chr> "6.6020000000000003", "19.239999999999998", "20.009"…
$ `1984`           <chr> "6.6929999999999996", "18.617999999999999", "19.8889…
$ `1985`           <chr> "6.7850000000000001", "18.004999999999999", "19.7890…
$ `1986`           <chr> "6.8730000000000002", "17.405999999999999", "19.7100…
$ `1987`           <chr> "6.9480000000000004", "16.826000000000001", "19.651"…
$ `1988`           <chr> "7.0049999999999999", "16.268000000000001", "19.6099…
$ `1989`           <chr> "7.0430000000000001", "15.738", "19.579000000000001"…
$ `1990`           <chr> "7.0590000000000002", "15.241", "19.555", "5.9850000…
$ `1991`           <chr> "7.0540000000000003", "14.782999999999999", "19.5330…
$ `1992`           <chr> "7.0339999999999998", "14.362", "19.506", "6.1550000…
$ `1993`           <chr> "7.0049999999999999", "13.974", "19.463999999999999"…
$ `1994`           <chr> "6.9729999999999999", "13.616", "19.396000000000001"…
$ `1995`           <chr> "6.9429999999999996", "13.282", "19.292000000000002"…
$ `1996`           <chr> "6.9219999999999997", "12.964", "19.146000000000001"…
$ `1997`           <chr> "6.9109999999999996", "12.654999999999999", "18.9520…
$ `1998`           <chr> "6.915", "12.348000000000001", "18.706", "6.06700000…
$ `1999`           <chr> "6.9340000000000002", "12.037000000000001", "18.404"…
$ `2000`           <chr> "6.9710000000000001", "11.718", "18.036000000000001"…
$ `2001`           <chr> "7.0220000000000002", "11.387", "17.597000000000001"…
$ `2002`           <chr> "7.0839999999999996", "11.048", "17.09", "5.891", NA…
$ `2003`           <chr> "7.1539999999999999", "10.704000000000001", "16.5219…
$ `2004`           <chr> "7.2329999999999997", "10.356", "15.903", "6.0609999…
$ `2005`           <chr> "7.3200000000000003", "10.003", "15.24", "6.20600000…
$ `2006`           <chr> "7.4180000000000001", "9.6449999999999996", "14.539"…
$ `2007`           <chr> "7.5270000000000001", "9.2870000000000008", "13.815"…
$ `2008`           <chr> "7.6479999999999997", "8.9320000000000004", "13.0850…
$ `2009`           <chr> "7.7800000000000002", "8.5839999999999996", "12.3670…
$ `2010`           <chr> "7.9180000000000001", "8.25", "11.68", "6.8410000000…
$ `2011`           <chr> "8.0609999999999999", "7.9359999999999999", "11.039"…
$ `2012`           <chr> "8.2050000000000001", "7.6449999999999996", "10.4510…
$ `2013`           <chr> "8.3469999999999995", "7.3799999999999999", "9.92099…
$ `2014`           <chr> "8.4879999999999995", "7.141", "9.4540000000000006",…
$ `2015`           <chr> "8.6270000000000007", "6.9290000000000003", "9.05199…
$ `2016`           <chr> "8.7650000000000006", "6.742", "8.7159999999999993",…
$ `2017`           <chr> "8.907", "6.5750000000000002", "8.4320000000000004",…
$ `2018`           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ `2019`           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …

That is looking better! However, we also want to remove some variables like: Country Code, Indicator Name, and Indicator Code. We can do that using the select() functio of the dplyr package. We can use the minus sign - to indicate what variables we dont want to keep.

# A tibble: 6 x 3
  Country  Year `Deaths/1000 People`
  <chr>   <dbl>                <dbl>
1 Aruba    1960                 6.39
2 Aruba    1961                 6.24
3 Aruba    1962                 6.12
4 Aruba    1963                 6.01
5 Aruba    1964                 5.92
6 Aruba    1965                 5.84

US-specific Data

Disasters

# A tibble: 6 x 57
   Year `Drought Count` `Drought Cost` `Drought Lower … `Drought Upper …
  <dbl>           <dbl>          <dbl>            <dbl>            <dbl>
1  1980               1           33.2             26.4             39.6
2  1981               0            0                0                0  
3  1982               0            0                0                0  
4  1983               1            7.8              5.5              9  
5  1984               0            0                0                0  
6  1985               0            0                0                0  
# … with 52 more variables: `Drought Lower 90` <dbl>, `Drought Upper 90` <dbl>,
#   `Drought Lower 95` <dbl>, `Drought Upper 95` <dbl>, `Flooding Count` <dbl>,
#   `Flooding Cost` <dbl>, `Flooding Lower 75` <dbl>, `Flooding Upper
#   75` <dbl>, `Flooding Lower 90` <dbl>, `Flooding Upper 90` <dbl>, `Flooding
#   Lower 95` <dbl>, `Flooding Upper 95` <dbl>, `Freeze Count` <dbl>, `Freeze
#   Cost` <dbl>, `Freeze Lower 75` <dbl>, `Freeze Upper 75` <dbl>, `Freeze
#   Lower 90` <dbl>, `Freeze Upper 90` <dbl>, `Freeze Lower 95` <dbl>, `Freeze
#   Upper 95` <dbl>, `Severe Storm Count` <dbl>, `Severe Storm Cost` <dbl>,
#   `Severe Storm Lower 75` <dbl>, `Severe Storm Upper 75` <dbl>, `Severe Storm
#   Lower 90` <dbl>, `Severe Storm Upper 90` <dbl>, `Severe Storm Lower
#   95` <dbl>, `Severe Storm Upper 95` <dbl>, `Tropical Cyclone Count` <dbl>,
#   `Tropical Cyclone Cost` <dbl>, `Tropical Cyclone Lower 75` <dbl>, `Tropical
#   Cyclone Upper 75` <dbl>, `Tropical Cyclone Lower 90` <dbl>, `Tropical
#   Cyclone Upper 90` <dbl>, `Tropical Cyclone Lower 95` <dbl>, `Tropical
#   Cyclone Upper 95` <dbl>, `Wildfire Count` <dbl>, `Wildfire Cost` <dbl>,
#   `Wildfire Lower 75` <dbl>, `Wildfire Upper 75` <dbl>, `Wildfire Lower
#   90` <dbl>, `Wildfire Upper 90` <dbl>, `Wildfire Lower 95` <dbl>, `Wildfire
#   Upper 95` <dbl>, `Winter Storm Count` <dbl>, `Winter Storm Cost` <dbl>,
#   `Winter Storm Lower 75` <dbl>, `Winter Storm Upper 75` <dbl>, `Winter Storm
#   Lower 90` <dbl>, `Winter Storm Upper 90` <dbl>, `Winter Storm Lower
#   95` <dbl>, `Winter Storm Upper 95` <dbl>

We are specifically interested in the Year and the variables that contain the word "Count" so we will select them using the select() and contains() functions in the dplyr package. Since we are selecting for variables with the word "Count" we need to use quotation marks around it. Selecting for the variable year does not require this as that is actually the name of one of the existing variables.

# A tibble: 6 x 8
   Year `Drought Count` `Flooding Count` `Freeze Count` `Severe Storm C…
  <dbl>           <dbl>            <dbl>          <dbl>            <dbl>
1  1980               1                1              0                0
2  1981               0                0              1                1
3  1982               0                0              0                2
4  1983               1                2              1                0
5  1984               0                0              0                2
6  1985               0                0              1                0
# … with 3 more variables: `Tropical Cyclone Count` <dbl>, `Wildfire
#   Count` <dbl>, `Winter Storm Count` <dbl>

Now we want to create a new variable that will be the sum of all the different types of disasters for each year.

We can create this ne variable using the mutate() function of dplyr and we will use the base rowSums() function to perform the calculation. We dont want to include the Year variable in our sum, so we can exclude it using the selectfunction within the rowSums() function. However, to do so we need to indicate that we are using the data that we already used as input to our mutate() and rowSums() functions. We can do so by using a ..

Rows: 40
Columns: 9
$ Year                     <dbl> 1980, 1981, 1982, 1983, 1984, 1985, 1986, 19…
$ `Drought Count`          <dbl> 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0,…
$ `Flooding Count`         <dbl> 1, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1,…
$ `Freeze Count`           <dbl> 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0,…
$ `Severe Storm Count`     <dbl> 0, 1, 2, 0, 2, 0, 1, 0, 0, 1, 1, 1, 4, 1, 1,…
$ `Tropical Cyclone Count` <dbl> 1, 0, 0, 1, 0, 3, 0, 0, 0, 1, 0, 1, 2, 0, 1,…
$ `Wildfire Count`         <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1,…
$ `Winter Storm Count`     <dbl> 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 2,…
$ Disasters                <dbl> 3, 2, 3, 5, 2, 5, 2, 0, 1, 5, 3, 4, 7, 5, 6,…

Data Visualization


Subsetting the data

US-specific

LS0tCnRpdGxlOiAiT3BlbiBDYXNlIFN0dWRpZXMgOiBDTzIgRW1pc3Npb25zIE92ZXIgVGltZSIKYXV0aG9yOiAiTWljaGFlbCBPbnRpdmVyb3MsIENhcnJpZSBXcmlnaHQsIFBoRC4iCmNzczogc3R5bGUuY3NzCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgc2VsZl9jb250YWluZWQ6IHllcwogICAgY29kZV9kb3dubG9hZDogeWVzCiAgICBoaWdobGlnaHQ6IHRhbmdvCiAgICBudW1iZXJfc2VjdGlvbnM6IG5vCiAgICB0aGVtZTogY29zbW8KICAgIHRvYzogeWVzCiAgICB0b2NfZmxvYXQ6IHllcwogIHBkZl9kb2N1bWVudDoKICAgIHRvYzogeWVzCiAgd29yZF9kb2N1bWVudDoKICAgIHRvYzogeWVzCi0tLQoKPHN0eWxlPgojVE9DIHsKICBiYWNrZ3JvdW5kOiB1cmwoImh0dHBzOi8vb3BlbmNhc2VzdHVkaWVzLmdpdGh1Yi5pby9pbWcvbG9nby5qcGciKTsKICBiYWNrZ3JvdW5kLXNpemU6IGNvbnRhaW47CiAgcGFkZGluZy10b3A6IDI0MHB4ICFpbXBvcnRhbnQ7CiAgYmFja2dyb3VuZC1yZXBlYXQ6IG5vLXJlcGVhdDsKfQo8L3N0eWxlPgoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChpbmNsdWRlID0gVFJVRSwgY29tbWVudCA9IE5BLCBlY2hvID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgIG1lc3NhZ2UgPSBGQUxTRSwgd2FybmluZyA9IEZBTFNFLCBjYWNoZSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgZmlnLmFsaWduID0gImNlbnRlciIsIG91dC53aWR0aCA9ICc5MCUnKQpsaWJyYXJ5KGhlcmUpCmxpYnJhcnkoa25pdHIpCmBgYAoKIyMjIyB7Lm91dGxpbmUgfQpgYGB7ciwgZWNobyA9IEZBTFNFLCBvdXQud2lkdGggPSAiODAwIHB4In0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgIm1haW5wbG90LnBuZyIpKQpgYGAKCiMjIyMKCiMjIHsuZGlzY2xhaW1lcl9ibG9ja30KCioqRGlzY2xhaW1lcioqOiBUaGUgcHVycG9zZSBvZiB0aGUgW09wZW4gQ2FzZSBTdHVkaWVzXShodHRwczovL29wZW5jYXNlc3R1ZGllcy5naXRodWIuaW8pe3RhcmdldD0iX2JsYW5rIn0gcHJvamVjdCBpcyAqKnRvIGRlbW9uc3RyYXRlIHRoZSB1c2Ugb2YgdmFyaW91cyBkYXRhIHNjaWVuY2UgbWV0aG9kcywgdG9vbHMsIGFuZCBzb2Z0d2FyZSBpbiB0aGUgY29udGV4dCBvZiBtZXNzeSwgcmVhbC13b3JsZCBkYXRhKiouIEEgZ2l2ZW4gY2FzZSBzdHVkeSBkb2VzIG5vdCBjb3ZlciBhbGwgYXNwZWN0cyBvZiB0aGUgcmVzZWFyY2ggcHJvY2VzcywgaXMgbm90IGNsYWltaW5nIHRvIGJlIHRoZSBtb3N0IGFwcHJvcHJpYXRlIHdheSB0byBhbmFseXplIGEgZ2l2ZW4gZGF0YSBzZXQsIGFuZCBzaG91bGQgbm90IGJlIHVzZWQgaW4gdGhlIGNvbnRleHQgb2YgbWFraW5nIHBvbGljeSBkZWNpc2lvbnMgd2l0aG91dCBleHRlcm5hbCBjb25zdWx0YXRpb24gZnJvbSBzY2llbnRpZmljIGV4cGVydHMuIAoKIyMgKipNb3RpdmF0aW9uKioKKioqIAoKVGhpcyBjYXNlIHN0dWR5IGV4cGxvcmVzIGhvdyBkaWZmZXJlbnQgY291bnRyaWVzIGhhdmUgY29udHJpYnV0ZWQgdG8gQ2FyYm9uIERpb3hpZGUgKENPMikgZW1pc3Npb25zIG92ZXIgdGltZSBhbmQgaG93IENPMiBlbWlzc2lvbiByYXRlcyBtYXkgcmVsYXRlIHRvIGluY3JlYXNpbmcgZ2xvYmFsIHRlbXBlcmF0dXJlcyBhbmQgaW5jcmVhc2VkIHJhdGVzIG9mIG5hdHVyYWwgZGlzYXN0ZXJzIGFuZCBzdG9ybXMuIFRoaXMgcmVwb3J0IHByb3ZpZGVzIGEgYmFzaXMgZm9yIHRoZSBtb3RpdmF0aW9uOiBodHRwczovL3d3dy5lcGEuZ292L3JlcG9ydC1lbnZpcm9ubWVudC9ncmVlbmhvdXNlLWdhc2VzLgoKCkNPMiBtYWtlcyB1cCB0aGUgbGFyZ2VzdCBwcm9wb3J0aW9uIG9mIGdyZWVuaG91c2UgZ2FzIGVtaXNzaW9ucyBpbiB0aGUgVW5pdGVkIFN0YXRlczoKCgpgYGB7ciwgZWNobyA9IEZBTFNFLCBvdXQud2lkdGg9IjUwMHB4In0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgImVtaXNzaW9ucy5qcGciKSkKYGBgCgpBIHZhcmlldHkgb2Ygc291cmNlcyBhbmQgc2VjdG9ycyBjb250cmlidXRlIHRvIGdyZWVuaG91c2UgZ2FzIGVtaXNzaW9ucywgd2l0aCB0cmFuc3BvcnRhdGlvbiBjb250cmlidXRpbmcgdGhlIG1vc3QgbWV0cmljIHRvbnMgb2YgQ08yOgoKCmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aD0iNjAwcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAic2VjdG9yLnBuZyIpKQpgYGAKClNvIHdoeSBzaG91bGQgd2UgcGF5IGF0dGVudGlvbiB0byBncmVlbmhvdXNlIGdhc2VzPwoKQWNjb3JkaW5nIHRvIHRoZSBbVVMgRW52aXJvbm1lbnRhbCBQcm90ZWN0aW9uIEFnZW5jeSAoRVBBKSBJbnZlbnRvcnkgb2YgVS5TLiBHcmVlbmhvdXNlIEdhcyBFbWlzc2lvbnMgYW5kIFNpbmtzIDIwMjAgUmVwb3J0XShodHRwczovL3d3dy5lcGEuZ292L2doZ2VtaXNzaW9ucy9pbnZlbnRvcnktdXMtZ3JlZW5ob3VzZS1nYXMtZW1pc3Npb25zLWFuZC1zaW5rcyk6IAoKPiBHcmVlbmhvdXNlIGdhc2VzIGFic29yYiBpbmZyYXJlZCByYWRpYXRpb24sIHRoZXJlYnkgdHJhcHBpbmcgaGVhdCBpbiB0aGUgYXRtb3NwaGVyZSBhbmQgbWFraW5nIHRoZSBwbGFuZXQgd2FybWVyLiBUaGUgbW9zdCBpbXBvcnRhbnQgZ3JlZW5ob3VzZSBnYXNlcyBkaXJlY3RseSBlbWl0dGVkIGJ5IGh1bWFucyBpbmNsdWRlIGNhcmJvbiBkaW94aWRlIChDTzIpLCBtZXRoYW5lIChDSDQpLCBuaXRyb3VzIG94aWRlIChOMk8pLCBhbmQgc2V2ZXJhbCBmbHVvcmluZS1jb250YWluaW5nIGhhbG9nZW5hdGVkIHN1YnN0YW5jZXMuIEFsdGhvdWdoIENPMiwgQ0g0LCBhbmQgTjJPIG9jY3VyIG5hdHVyYWxseSBpbiB0aGUgYXRtb3NwaGVyZSwgaHVtYW4gYWN0aXZpdGllcyBoYXZlIGNoYW5nZWQgdGhlaXIgYXRtb3NwaGVyaWMgY29uY2VudHJhdGlvbnMuIEZyb20gdGhlIHByZS0gaW5kdXN0cmlhbCBlcmEgKGkuZS4sIGVuZGluZyBhYm91dCAxNzUwKSB0byAyMDE4LCBjb25jZW50cmF0aW9ucyBvZiB0aGVzZSBncmVlbmhvdXNlIGdhc2VzIGhhdmUgaW5jcmVhc2VkIGdsb2JhbGx5IGJ5IDQ2LCAxNjUsIGFuZCAyMyBwZXJjZW50LCByZXNwZWN0aXZlbHkgKElQQ0MgMjAxMzsgTk9BQS9FU1JMIDIwMTlhLCAyMDE5YiwgMjAxOWMpLiAKCiogSVBDQyBzdGFuZHMgZm9yIHRoZSBJbnRlcmdvdmVybm1lbnRhbCBQYW5lbCBvbiBDbGltYXRlIENoYW5nZQoKVGhlcmUgYXJlIG1hbnkgc2lnbnMgdGhhdCBvdXIgcGxhbmV0IGlzIGV4cGVyaWVuY2luZyB3YXJtZXIgdGVtcGVyYXR1cmVzOgoKYGBge3IsIGVjaG8gPSBGQUxTRSwgb3V0LndpZHRoPSI2MDBweCJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJ3YXJtaW5nLnBuZyIpKQpgYGAKClRoZSBjb25uZWN0aW9uIGJldHdlZW4gZ3JlZW5ob3VzZSBnYXMgbGV2ZWxzIGFuZCBnbG9iYWwgdGVtcGVyYXR1cmVzIGFuZCB0aGUgaW5mbHVlbmNlIG9mIGluY3JlYXNlZCBnbG9iYWwgdGVtcGVyYXR1cmVzIG9uIGh1bWFuIGhlYWx0aCBhcmUgbW90aXZhdGVkIGJ5IHRoZXNlIHJlcG9ydHM6CgojIyMjIHsucmVmZXJlbmNlX2Jsb2NrfQoKTWVsaWxsbywgSi5NLiwgVC5DLiBSaWNobW9uZCwgYW5kIEcuVy4gWW9oZSAoZWRzLikuIDIwMTQuIENsaW1hdGUgY2hhbmdlIGltcGFjdHMgaW4gdGhlIFVuaXRlZCBTdGF0ZXM6IFRoZSB0aGlyZCBOYXRpb25hbCBDbGltYXRlIEFzc2Vzc21lbnQuIFUuUy4gR2xvYmFsIENoYW5nZSBSZXNlYXJjaCBQcm9ncmFtLiAgCgoyMDIwLiDigJxJbnZlbnRvcnkgb2YgVVMgR3JlZW5ob3VzZSBHYXMgRW1pc3Npb25zIGFuZCBTaW5rczogMTk5MC0tMjAxOC7igJ0gRVBBIDQzMC1SLTIwLTAwMiwgVGVjaC4gUmVwLiBodHRwczovL3d3dy5lcGEuZ292L2doZ2VtaXNzaW9ucy9pbnZlbnRvcnktdXMtZ3JlZW5ob3VzZS1nYXMtZW1pc3Npb25zLWFuZC1zaW5rcy4KCgojIyMjCgpUaGUgTmF0aW9uYWwgQ2xpbWF0ZSBBc3Nlc3NtZW50IFJlcG9ydCBzdGF0ZXMgdGhhdDoKCj4gSGVhdC10cmFwcGluZyBnYXNlcyBhbHJlYWR5IGluIHRoZSBhdG1vc3BoZXJlIGhhdmUgY29tbWl0dGVkIHVzIHRvIGEgaG90dGVyIGZ1dHVyZSB3aXRoIG1vcmUgY2xpbWF0ZS1yZWxhdGVkIGltcGFjdHMgb3ZlciB0aGUgbmV4dCBmZXcgZGVjYWRlcy4gVGhlIG1hZ25pdHVkZSBvZiBjbGltYXRlIGNoYW5nZSBiZXlvbmQgdGhlIG5leHQgZmV3IGRlY2FkZXMgZGVwZW5kcyBwcmltYXJpbHkgb24gdGhlIGFtb3VudCBvZiBoZWF0LXRyYXBwaW5nIGdhc2VzIHRoYXQgaHVtYW4gYWN0aXZpdGllcyBlbWl0IGdsb2JhbGx5LCBub3cgYW5kIGluIHRoZSBmdXR1cmUuCgpTZWUgW2hlcmVdKGh0dHBzOi8vd3d3LmVwYS5nb3YvcmVwb3J0LWVudmlyb25tZW50L2dyZWVuaG91c2UtZ2FzZXMpIGFuZCBbaGVyZV0oaHR0cHM6Ly93b3JsZDEwMS5jZnIub3JnL2dsb2JhbC1lcmEtaXNzdWVzL2NsaW1hdGUtY2hhbmdlL2NsaW1hdGUtY2hhbmdlLWFkYXB0YXRpb25zKSBmb3IgbW9yZSBpbmZvcm1hdGlvbi4KCiMjICoqTWFpbiBRdWVzdGlvbnMqKgoqKiogCgojIyMjIHsubWFpbl9xdWVzdGlvbl9ibG9ja30KPGI+PHU+IE91ciBtYWluIHF1ZXN0aW9uOiA8L3U+PC9iPgoKMSkgSG93IGhhdmUgZ2xvYmFsIENPMiBlbWlzc2lvbiByYXRlcyBjaGFuZ2VkIG92ZXIgdGltZT8gSW4gcGFydGljdWxhciBmb3IgdGhlIFVTLCBhbmQgaG93IGRvZXMgdGhlIFVTIGNvbXBhcmUgdG8gb3RoZXIgY291bnRyaWVzPyAKMikgQXJlIFVTIENPMiBlbWlzc2lvbnMsIGdsb2JhbCB0ZW1wZXJhdHVyZXMsIGFuZCBVUyBzdG9ybSByYXRlcyBhc3NvY2lhdGVkPyAKCiMjIyMKCiMjICoqTGVhcm5pbmcgT2JqZWN0aXZlcyoqIAoqKiogCgpJbiB0aGlzIGNhc2Ugc3R1ZHksIHdlIHdpbGwgZXhwbG9yZSBDTzIgZW1pc3Npb24gZGF0YSBmcm9tIGFyb3VuZCB0aGUgd29ybGQuIFdlIHdpbGwgYWxzbyBmb2N1cyBvbiB0aGUgVVMgc3BlY2lmaWNhbGx5IHRvIGV2YWx1YXRlIHBhdHRlcm5zIG9mIHRlbXBlcmF0dXJlcyBhbmQgc3Rvcm0gYWN0aXZpdHkuIFRoaXMgY2FzZSBzdHVkeSB3aWxsIHBhcnRpY3VsYXJseSBmb2N1cyBvbiB2aXN1YWxpemF0aW9ucyBvZiBwYXR0ZXJucyBvdmVyIHRpbWUuIFdlIHdpbGwgZXNwZWNpYWxseSBmb2N1cyBvbiB1c2luZyBwYWNrYWdlcyBhbmQgZnVuY3Rpb25zIGZyb20gdGhlIFtgVGlkeXZlcnNlYF0oaHR0cHM6Ly93d3cudGlkeXZlcnNlLm9yZy8pe3RhcmdldD0iX2JsYW5rIn0sIHN1Y2ggYXMgYHBsb3RseWBhbmQgYGdnYW5pbWF0ZWAuIFRoZSB0aWR5dmVyc2UgaXMgYSBsaWJyYXJ5IG9mIHBhY2thZ2VzIGNyZWF0ZWQgYnkgUlN0dWRpby4gV2hpbGUgc29tZSBzdHVkZW50cyBtYXkgYmUgZmFtaWxpYXIgd2l0aCBwcmV2aW91cyBSIHByb2dyYW1taW5nIHBhY2thZ2VzLCB0aGVzZSBwYWNrYWdlcyBtYWtlIGRhdGEgc2NpZW5jZSBpbiBSIGVzcGVjaWFsbHkgZWZmaWNpZW50LgoKCioqKiAKCgpXZSB3aWxsIGJlZ2luIGJ5IGxvYWRpbmcgdGhlIHBhY2thZ2VzIHRoYXQgd2Ugd2lsbCBuZWVkOgoKYGBge3J9CmxpYnJhcnkoaGVyZSkKbGlicmFyeShyZWFkeGwpCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkobWFncml0dHIpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHBsb3RseSkKbGlicmFyeShnZ2FuaW1hdGUpCmxpYnJhcnkoUkNvbG9yQnJld2VyKQpgYGAKCgogUGFja2FnZSAgIHwgVXNlICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAotLS0tLS0tLS0tIHwtLS0tLS0tLS0tLS0tCltoZXJlXShodHRwczovL2dpdGh1Yi5jb20vamVubnliYy9oZXJlX2hlcmUpe3RhcmdldD0iX2JsYW5rIn0gICAgICAgfCB0byBlYXNpbHkgbG9hZCBhbmQgc2F2ZSBkYXRhCltyZWFkeGxdKGh0dHBzOi8vcmVhZHhsLnRpZHl2ZXJzZS5vcmcvKXt0YXJnZXQ9Il9ibGFuayJ9ICB8IHRvIGltcG9ydCB0aGUgZXhjZWwgZmlsZSBkYXRhCltyZWFkcl0oaHR0cHM6Ly9yZWFkci50aWR5dmVyc2Uub3JnLyl7dGFyZ2V0PSJfYmxhbmsifSAgfCB0byBpbXBvcnQgdGhlIGNzdiBmaWxlIGRhdGEKW2RwbHlyXShodHRwczovL2RwbHlyLnRpZHl2ZXJzZS5vcmcvKXt0YXJnZXQ9Il9ibGFuayJ9ICB8ICB0byB2aWV3IGFuZCB3cmFuZ2xlIHRoZSBkYXRhClttYWdyaXR0cl0oaHR0cHM6Ly9jcmFuLnItcHJvamVjdC5vcmcvd2ViL3BhY2thZ2VzL21hZ3JpdHRyL3ZpZ25ldHRlcy9tYWdyaXR0ci5odG1sKXt0YXJnZXQ9Il9ibGFuayJ9ICB8ICB0byB1c2UgYW5kIHJlYXNzaWduIGRhdGEgb2JqZWN0cyB1c2luZyB0aGUgYCU8PiVgcGlwZSBvcGVyYXRvcgpbdGlkeXZlcnNlXShodHRwczovL3d3dy50aWR5dmVyc2Uub3JnL3BhY2thZ2VzLyl7dGFyZ2V0PSJfYmxhbmsifSAgfCB0byB3cmFuZ2xlIHRoZSBkYXRhIGFuZCBjcmVhdGUgZ2dwbG90MiBwbG90cwpbcGxvdHlseV0oaHR0cHM6Ly9wbG90bHkuY29tL3IvKXt0YXJnZXQ9Il9ibGFuayJ9ICB8IHRvIG1ha2UgdGhlIHZpc3VhbGl6YXRpb25zCltnZ2FuaW1hdGVdKGh0dHBzOi8vZ2dhbmltYXRlLmNvbS8pe3RhcmdldD0iX2JsYW5rIn0gIHwgdG8gbWFrZSB0aGUgcGxvdHMgaW50ZXJhY3RpdmUKW1JDb2xvckJyZXdlcl0oaHR0cHM6Ly9jcmFuLnItcHJvamVjdC5vcmcvd2ViL3BhY2thZ2VzL1JDb2xvckJyZXdlci9pbmRleC5odG1sKXt0YXJnZXQ9Il9ibGFuayJ9ICB8IHRvIGhhdmUgZ3JlYXRlciBjb250cm9sIG92ZXIgdGhlIGNvbG9yIGluIG91ciBwbG90cwoKVGhlIGZpcnN0IHRpbWUgd2UgdXNlIGEgZnVuY3Rpb24sIHdlIHdpbGwgdXNlIHRoZSBgOjpgIHRvIGluZGljYXRlIHdoaWNoIHBhY2thZ2Ugd2UgYXJlIHVzaW5nLiBVbmxlc3Mgd2UgaGF2ZSBvdmVybGFwcGluZyBmdW5jdGlvbiBuYW1lcywgdGhpcyBpcyBub3QgbmVjZXNzYXJ5LCBidXQgd2Ugd2lsbCBpbmNsdWRlIGl0IGhlcmUgdG8gYmUgaW5mb3JtYXRpdmUgYWJvdXQgd2hlcmUgdGhlIGZ1bmN0aW9ucyB3ZSB3aWxsIHVzZSBjb21lIGZyb20uCgoKIyMgKipDb250ZXh0KioKKioqIAoKR3JlZW5ob3VzZSBnYXMgZW1pc3Npb25zIGFyZSBkdWUgdG8gYm90aCBuYXR1cmFsIHByb2Nlc3NlcyBhbmQgYW50aHJvcG9nZW5pYyAoaHVtYW4tZGVyaXZlZCkgYWN0aXZpdGllcy4gCgpUaGVzZSBlbWlzc2lvbnMgYXJlIG9uZSBvZiB0aGUgY29udHJpYnV0aW5nIGZhY3RvcnMgdG8gcmlzaW5nIGdsb2JhbCB0ZW1wZXJhdHVyZXMsIHdoaWNoIGNhbiBoYXZlIGEgZ3JlYXQgaW5mbHVlbmNlIG9uIFtwdWJsaWMgaGVhbHRoXShodHRwczovL3d3dy5lcGEuZ292L2NsaW1hdGUtaW5kaWNhdG9ycy91bmRlcnN0YW5kaW5nLWNvbm5lY3Rpb25zLWJldHdlZW4tY2xpbWF0ZS1jaGFuZ2UtYW5kLWh1bWFuLWhlYWx0aCl7dGFyZ2V0PSJfYmxhbmsifSAgYXMgaWxsdXN0cmF0ZWQgaW4gdGhlIGZvbGxvd2luZyBpbWFnZToKCmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aD0iODAwcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAiaGVhbHRoLnBuZyIpKQpgYGAKCj4gR2FzZXMgaW4gdGhlIGF0bW9zcGhlcmUgY2FuIGNvbnRyaWJ1dGUgdG8gY2xpbWF0ZSBjaGFuZ2UgYm90aCBkaXJlY3RseSBhbmQgaW5kaXJlY3RseS4gRGlyZWN0IGVmZmVjdHMgb2NjdXIgd2hlbiB0aGUgZ2FzIGl0c2VsZiBhYnNvcmJzIHJhZGlhdGlvbi4gSW5kaXJlY3QgcmFkaWF0aXZlIGZvcmNpbmcgb2NjdXJzIHdoZW4gY2hlbWljYWwgdHJhbnNmb3JtYXRpb25zIG9mIHRoZSBzdWJzdGFuY2UgcHJvZHVjZSBvdGhlciBncmVlbmhvdXNlIGdhc2VzLCB3aGVuIGEgZ2FzIGluZmx1ZW5jZXMgdGhlIGF0bW9zcGhlcmljIGxpZmV0aW1lcyBvZiBvdGhlciBnYXNlcywgYW5kL29yIHdoZW4gYSBnYXMgYWZmZWN0cyBhdG1vc3BoZXJpYyBwcm9jZXNzZXMgdGhhdCBhbHRlciB0aGUgcmFkaWF0aXZlIGJhbGFuY2Ugb2YgdGhlIGVhcnRoIChlLmcuLCBhZmZlY3QgY2xvdWQgZm9ybWF0aW9uIG9yIGFsYmVkbykuIFRoZSBJUENDIGRldmVsb3BlZCB0aGUgR2xvYmFsIFdhcm1pbmcgUG90ZW50aWFsIChHV1ApIGNvbmNlcHQgdG8gY29tcGFyZSB0aGUgYWJpbGl0eSBvZiBhIGdyZWVuaG91c2UgZ2FzIHRvIHRyYXAgaGVhdCBpbiB0aGUgYXRtb3NwaGVyZSByZWxhdGl2ZSB0byBhbm90aGVyIGdhcy4KVGhlIEdXUCBvZiBhIGdyZWVuaG91c2UgZ2FzIGlzIGRlZmluZWQgYXMgdGhlIHJhdGlvIG9mIHRoZSBhY2N1bXVsYXRlZCByYWRpYXRpdmUgZm9yY2luZyB3aXRoaW4gYSBzcGVjaWZpYyB0aW1lIGhvcml6b24gY2F1c2VkIGJ5IGVtaXR0aW5nIDEga2lsb2dyYW0gb2YgdGhlIGdhcywgcmVsYXRpdmUgdG8gdGhhdCBvZiB0aGUgcmVmZXJlbmNlIGdhcyBDTzIgKElQQ0MgMjAxMykuIFRoZXJlZm9yZSBHV1Atd2VpZ2h0ZWQgZW1pc3Npb25zIGFyZSBwcm92aWRlZCBpbiBtaWxsaW9uIG1ldHJpYyB0b25zIG9mIENPMiBlcXVpdmFsZW50IChNTVQgQ08yIEVxLikKCgogQ08yIGlzIGFjdHVhbGx5IHRoZSBsZWFzdCBjYXBhYmxlIG9mIHRoZSBncmVlbmhvdXNlIGdhc2VzIGZvciB0cmFwcGluZyBoZWF0OgoKYGBge3IsIGVjaG8gPSBGQUxTRSwgb3V0LndpZHRoPSI4MDBweCJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJHV1AucG5nIikpCmBgYAoKSG93ZXZlciwgYmVjYXVzZSBDTzIgaXMgc28gbXVjaCBtb3JlIGFidW5kYW50IGFuZCBzdGF5cyBpbiB0aGUgYXRtb3NwaGVyZSBzbyBtdWNoIGxvbmdlciB0aGFuIG90aGVyIGdyZWVuaG91c2UgZ2FzZXMsIGl0IGhhcyBiZWVuIHRoZSBsYXJnZXN0IGNvbnRyaWJ1dG9yIHRvIGdsb2JhbCB3YXJtaW5nLgoKU2VlIFtoZXJlXShodHRwczovL3d3dy51Y3N1c2Eub3JnL3Jlc291cmNlcy93aHktZG9lcy1jbzItZ2V0LW1vcmUtYXR0ZW50aW9uLW90aGVyLWdhc2VzIzp+OnRleHQ9Q08yJTIwc3RpY2tzJTIwYXJvdW5kLG94aWRlJTIwKE4yTyl7dGFyZ2V0PSJfYmxhbmsifS4pCmZvciBtb3JlIGRldGFpbHMuCgoKRnVydGhlcm1vcmUsIHNpemluZyBDTzIgbGV2ZWxzIGFsc28gaW5mbHVlbmNlIG9jZWFuIGFjaWRpdHk6CgpgYGB7ciwgZWNobyA9IEZBTFNFLCBvdXQud2lkdGg9IjUwMHB4In0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgIm9jZWFucy5wbmciKSkKYGBgCgpUaGlzIG1ha2VzIGl0IGRpZmZpY3VsdCBmb3Igb3JnYW5pc21zIHRvIG1haW50YWluIHRoZWlyIHNoZWxscyBvciBza2VsZXRvbnMgdGhhdCBhcmUgbWFkZSBvZiBjYWxjaXVtIGNhcmJvbmF0ZSwgdGh1cyBtYWtpbmcgaXQgbW9yZSBkaWZmaWN1bHQgZm9yIHRoZXNlIG9yZ2FuaXNtcyB0byBzdXJ2aXZlIGFuZCBpbXBhY3RpbmcgdGhlaXIgcm9sZSBpbiB0aGUgZWNvc3lzdGVtIGFuZCBmb29kIGNoYWluLiAKCgpGdXJ0aGVybW9yZSwgZ3JlZW5ob3VzZSBnYXMgZW1pc3Npb25zIGFyZSBiZWxpZXZlZCB0byBpbmZsdWVuY2Ugc3Rvcm0gcmF0ZXMuIAoKSW5kZWVkIGV2ZW50cyB3aXRoIGhpZ2ggbGV2ZWxzIG9mIHByZWNpcGl0YXRpb24gd2hpY2ggY2FuIGluZHVjZSBmbG9vZGluZyBhbmQgcHJvcGVydHkgZGFtYWdlIGFyZSBnZW5lcmFsbHkgaW5jcmVhc2luZyBhcm91bmQgdGhlIGNvdW50cnk6CgpgYGB7ciwgZWNobyA9IEZBTFNFLCBvdXQud2lkdGg9IjUwMHB4In0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgInN0b3Jtcy5wbmciKSkKYGBgCgoKIyMgKipMaW1pdGF0aW9ucyoqCioqKiAKClRoZXJlIGFyZSBzb21lIGltcG9ydGFudCBjb25zaWRlcmF0aW9ucyByZWdhcmRpbmcgdGhpcyBkYXRhIGFuYWx5c2lzIHRvIGtlZXAgaW4gbWluZDogCgoxKSBDb3JyZWxhdGlvbiBvciBhc3NvY2lhdGlvbiBkb2VzIG5vdCBpbXBseSBjYXVzYXRpb24gCgoyKSBMaW1pdGFpdG9uIDIgIAoKCgoKCgojIyAqKldoYXQgYXJlIHRoZSBkYXRhPyoqCioqKiAKCkluIHRoaXMgY2FzZSBzdHVkeSB3ZSB3aWxsIGJlIHVzaW5nIGRhdGEgcmVsYXRlZCB0byBDTzIgZW1pc3Npb25zLCBhcyB3ZWxsIGFzIG90aGVyIGRhdGEgdGhhdCBtYXkgaW5mbHVlbmNlLCBiZSBpbmZsdWVuY2VkIG9yIHJlbGF0ZSB0byBDTzIgZW1pc3Npb25zLiBNb3N0IG9mIG91ciBkYXRhIHdhcyBvYnRhaW5lZCBmcm9tIFtHYXBtaW5kZXJdKGh0dHBzOi8vd3d3LmdhcG1pbmRlci5vcmcvZGF0YS8pe3RhcmdldD0iX2JsYW5rIn0sIHdoaWNoIGlzIGEgdW5pcXVlIG5vbnByb2ZpdCB0aGF0IHByb3ZpZGVzIGEgdmFyaWV0eSBvZiBkYXRhIGZvciBmcmVlLgoKSW4gdGhlaXIgd29yZHMsIEdhcG1pbmRlciBpcy4uLgoKPiBHYXBtaW5kZXIgaXMgYW4gaW5kZXBlbmRlbnQgU3dlZGlzaCBmb3VuZGF0aW9uIHdpdGggbm8gcG9saXRpY2FsLCByZWxpZ2lvdXMgb3IgZWNvbm9taWMgYWZmaWxpYXRpb25zLiBHYXBtaW5kZXIgaXMgYSBmYWN0IHRhbmssIG5vdCBhIHRoaW5rIHRhbmsuIEdhcG1pbmRlciBmaWdodHMgZGV2YXN0YXRpbmcgbWlzY29uY2VwdGlvbnMgYWJvdXQgZ2xvYmFsIGRldmVsb3BtZW50LiBHYXBtaW5kZXIgcHJvZHVjZXMgZnJlZSB0ZWFjaGluZyByZXNvdXJjZXMgbWFraW5nIHRoZSB3b3JsZCB1bmRlcnN0YW5kYWJsZSBiYXNlZCBvbiByZWxpYWJsZSBzdGF0aXN0aWNzLiBHYXBtaW5kZXIgcHJvbW90ZXMgYSBmYWN0LWJhc2VkIHdvcmxkdmlldyBldmVyeW9uZSBjYW4gdW5kZXJzdGFuZC4gIEdhcG1pbmRlciBjb2xsYWJvcmF0ZXMgd2l0aCB1bml2ZXJzaXRpZXMsIFVOLCBwdWJsaWMgYWdlbmNpZXMgYW5kIG5vbi1nb3Zlcm5tZW50YWwgb3JnYW5pemF0aW9ucy4gQWxsIEdhcG1pbmRlciBhY3Rpdml0aWVzIGFyZSBnb3Zlcm5lZCBieSB0aGUgYm9hcmQuIFdlIGRvIG5vdCBhd2FyZCBncmFudHMuIEdhcG1pbmRlciBGb3VuZGF0aW9uIGlzIHJlZ2lzdGVyZWQgYXQgU3RvY2tob2xtIENvdW50eSBBZG1pbmlzdHJhdGlvbiBCb2FyZC4gT3VyIGNvbnN0aXR1dGlvbiBjYW4gYmUgZm91bmQgW2hlcmVdKGh0dHBzOi8vd3d3LmdhcG1pbmRlci5vcmcvYWJvdXQtZ2FwbWluZGVyL2NvbnN0aXR1dGlvbi8pLgoKVGhlIGRhdGEgdGhhdCB3ZSB3aWxsIGJlIHVzaW5nIGZyb20gR2FwbWluZGVyIHdhcyBvYnRhaW5lZCBmcm9tIHRoZSBbV29ybGQgQmFua10oaHR0cHM6Ly93d3cud29ybGRiYW5rLm9yZy9lbi93aGF0LXdlLWRvKXt0YXJnZXQ9Il9ibGFuayJ9LgoKCkluIGFkZGl0aW9uIHdlIHdpbGwgdXNlIHNvbWUgZGF0YSB0aGF0IGlzIHNwZWNpZmljIHRvIHRoZSBVbml0ZWQgU3RhdGVzIGZyb20gdGhlIFtOYXRpb25hbCBPY2VhbmljIGFuZCBBdG1vc3BoZXJpYyBBZG1pbmlzdHJhdGlvbiAoTk9BQSldIChodHRwczovL3d3dy5ub2FhLmdvdi8pLCB3aGljaCBpcyBhbiBhZ2VuY3kgdGhhdCBjb2xsZWN0cyB3ZWF0aGVyIGFuZCBjbGltYXRlIGRhdGEuCgoKRGF0YSAgIHwgU291cmNlICAgICAgICAgfCBPcmdpbmFsIFNvdXJjZSAgIHwgRGVzY3JpcHRpb24gfCBDaXRhdGlvbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCi0tLS0tLS0tLS0gfC0tLS0tLS0tLS0tLS18LS0tLS0tLS0tLS0tLXwtLS0tLS0tLS0tLS0tCioqQ08yIGVtaXNzaW9ucyoqICB8IFtHYXBtaW5kZXJdKGh0dHBzOi8vd3d3LmdhcG1pbmRlci5vcmcvZGF0YS8pe3RhcmdldD0iX2JsYW5rIn0gIHwgW0NhcmJvbiBEaW94aWQgSW5mb3JtYXRpb24gQW5hbHlzaXMgQ2VudGVyIChDRElBQyldKGh0dHBzOi8vY2RpYWMuZXNzLWRpdmUubGJsLmdvdi8pe3RhcmdldD0iX2JsYW5rIn0gIHwgIENPMiBlbWlzc2lvbnMgaW4gdG9ubmVzIG9yIG1ldHJpYyB0b25zIChlcXVpdmFsZW50IHRvIGFwcHJveGltYXRlbHkgMiwyMDQuNiBwb3VuZHMpIHBlciBwZXJzb24gfCBOQQoqKkdEUCBwZXIgY2FwaXRhLCB5ZWFybHkgZ3Jvd3RoKiogIHwgW0dhcG1pbmRlcl0oaHR0cHM6Ly93d3cuZ2FwbWluZGVyLm9yZy9kYXRhLyl7dGFyZ2V0PSJfYmxhbmsifSAgfCBbV29ybGQgQmFua10oaHR0cHM6Ly9kYXRhLndvcmxkYmFuay5vcmcvaW5kaWNhdG9yL05ZLkdEUC5QQ0FQLktELlpHKXt0YXJnZXQ9Il9ibGFuayJ9ICB8ICBbR3Jvd3RoIERvbWVzdGljIFByb2R1Y3RdKGh0dHBzOi8vd3d3LmludmVzdG9wZWRpYS5jb20vdGVybXMvZy9nZHAuYXNwIzp+OnRleHQ9R3Jvc3MlMjBEb21lc3RpYyUyMFByb2R1Y3QlMjAoR0RQKSUyMGlzJTIwdGhlJTIwbW9uZXRhcnklMjB2YWx1ZSUyMG9mJTIwYWxsLGV4cGVuZGl0dXJlcyUyQyUyMHByb2R1Y3Rpb24lMkMlMjBvciUyMGluY29tZXMuKXt0YXJnZXQ9Il9ibGFuayJ9ICAod2hpY2ggaXMgYW4gb3ZlcmFsbCBtZWFzdXJlIG9mIHRoZSBoZWFsdGggb2YgbmF0aW9uJ3MgZWNvbm9teSkgcGVyIHBlcnNvbiB8IE5BCioqRW5lcmd5IHVzZSBwZXIgcGVyc29uKiogIHwgW0dhcG1pbmRlcl0oaHR0cHM6Ly93d3cuZ2FwbWluZGVyLm9yZy9kYXRhLyl7dGFyZ2V0PSJfYmxhbmsifSAgfCBbV29ybGQgQmFua10oaHR0cHM6Ly9kYXRhLndvcmxkYmFuay5vcmcvaW5kaWNhdG9yL0VHLlVTRS5QQ0FQLktHLk9FKXt0YXJnZXQ9Il9ibGFuayJ9ICB8ICBVc2Ugb2YgcHJpbWFyeSBlbmVyZ3kgYmVmb3JlIHRyYW5zZm9ybWF0aW9uIHRvIG90aGVyIGVuZC11c2UgZnVsZXMsIGJ5IGNvdW50cnkgc3RhcnRpbmcgaW4gMTk2MCB8IE5BCioqQ3J1ZGUgTW9ydGFsaXR5IFJhdGUqKiAgfCBbV29ybGQgQmFua10oaHR0cHM6Ly9kYXRhLndvcmxkYmFuay5vcmcvaW5kaWNhdG9yL1NQLkRZTi5DRFJULklOKXt0YXJnZXQ9Il9ibGFuayJ9ICB8IFtXb3JsZCBCYW5rXShodHRwczovL2RhdGEud29ybGRiYW5rLm9yZy9pbmRpY2F0b3IvU1AuRFlOLkNEUlQuSU4pe3RhcmdldD0iX2JsYW5rIn0gfCAgRGVhdGggcmF0ZSBwZXIgMSwwMDAgcGVvcGxlIGZyb20gMTk2MCB0byAyMDE4IGJ5IGNvdW50cnl8IE5BIAoqKlVTIE5hdHVyYWwgRGlzYXN0ZXJzKiogIHwgW1RoZSBOYXRpb25hbCBPY2VhbmljIGFuZCBBdG1vc3BoZXJpYyBBZG1pbmlzdHJhdGlvbiAoTk9BQSldKGh0dHBzOi8vd3d3Lm5jZGMubm9hYS5nb3YvYmlsbGlvbnMvdGltZS1zZXJpZXMpe3RhcmdldD0iX2JsYW5rIn18IFtUaGUgTmF0aW9uYWwgT2NlYW5pYyBhbmQgQXRtb3NwaGVyaWMgQWRtaW5pc3RyYXRpb24gKE5PQUEpIF0oaHR0cHM6Ly93d3cubmNkYy5ub2FhLmdvdi9iaWxsaW9ucy90aW1lLXNlcmllcyl7dGFyZ2V0PSJfYmxhbmsifXwgIERhdGEgZnJvbSAxOTgwIHRvIDIwMTkgaW5jbHVkaW5nOiA8YnI+IC0tIERyb3VnaHQgQ291bnQgPGJyPiAtLSBGbG9vZGluZyBDb3VudCA8YnI+IC0tIEZyZWV6ZSBDb3VudCA8YnI+IC0tIFNldmVyZSBTdG9ybSBDb3VudCA8YnI+IC0tIFRyb3BpY2FsIEN5Y2xvbmUgQ291bnQgPGJyPiAtLSBXaWxkZmlyZSBDb3VudCA8YnI+IC0tIFdpbnRlciBTdG9ybSBDb3VudCB8IE5PQUEgTmF0aW9uYWwgQ2VudGVycyBmb3IgRW52aXJvbm1lbnRhbCBJbmZvcm1hdGlvbiAoTkNFSSkgVS5TLiBCaWxsaW9uLURvbGxhciBXZWF0aGVyIGFuZCBDbGltYXRlIERpc2FzdGVycyAoMjAyMCkuIGh0dHBzOi8vd3d3Lm5jZGMubm9hYS5nb3YvYmlsbGlvbnMvLCBET0k6IDEwLjI1OTIxL3N0a3ctN3c3MwoqKlRlbXBlcmF0dXJlKiogIHwgW1RoZSBOYXRpb25hbCBPY2VhbmljIGFuZCBBdG1vc3BoZXJpYyBBZG1pbmlzdHJhdGlvbiAoTk9BQSldKGh0dHBzOi8vd3d3Lm5jZGMubm9hYS5nb3YvY2FnL2dsb2JhbC90aW1lLXNlcmllcy9nbG9iZS9sYW5kX29jZWFuL3l0ZC81LzE4ODAtMjAyMCl7dGFyZ2V0PSJfYmxhbmsifSAgfCBbVGhlIE5hdGlvbmFsIE9jZWFuaWMgYW5kIEF0bW9zcGhlcmljIEFkbWluaXN0cmF0aW9uIChOT0FBKV0oaHR0cHM6Ly93d3cubmNkYy5ub2FhLmdvdi9jYWcvZ2xvYmFsL3RpbWUtc2VyaWVzL2dsb2JlL2xhbmRfb2NlYW4veXRkLzUvMTg4MC0yMDIwKXt0YXJnZXQ9Il9ibGFuayJ9IHwgTmF0aW9uYWwgeWVhcmx5IGF2ZXJhZ2UgdGVtcGVyYXR1cmUgKGluIEZhaHJlbmhlaXQpIGZyb20gMTg5NSB0byAyMDE5IHwgTk9BQSBOYXRpb25hbCBDZW50ZXJzIGZvciBFbnZpcm9ubWVudGFsIEluZm9ybWF0aW9uLCBTdGF0ZSBvZiB0aGUgQ2xpbWF0ZTogR2xvYmFsIENsaW1hdGUgUmVwb3J0IGZvciBNYXJjaCAyMDIwLCBwdWJsaXNoZWQgb25saW5lIEFwcmlsIDIwMjAsIHJldHJpZXZlZCBvbiBKdW5lIDI1LCAyMDIwIGZyb20gaHR0cHM6Ly93d3cubmNkYy5ub2FhLmdvdi9zb3RjL2dsb2JhbC8yMDIwMDMvc3VwcGxlbWVudGFsL3BhZ2UtMS4KCgpUbyBvYnRhaW4gdGhlIHRlbXBlcmF0dXJlIGRhdGEsIGFubnVhbCBhdmVyYWdlIHRlbXBlcmF0dXJlcyB3ZXJlIHNlbGVjdGVkIGFzIHNob3duIGluIHRoaXMgaW1hZ2U6CmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aCA9ICI4MDAgcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAidGVtcC5wbmciKSkKYGBgCgpodHRwczovL3d3dy5uY2RjLm5vYWEuZ292L2NhZy9uYXRpb25hbC90aW1lLXNlcmllcy8KCiMjICoqRGF0YSBJbXBvcnQqKgoqKiogCgpUbyByZWFkIGluIHRoZSBmaWxlcyB0aGF0IHdlcmUgZG93bmxvYWRlZCBmcm9tIHRoZSB2YXJpb3VzIHNvdXJjZXMgYXMgaW5kaWNhdGVkIGluIHRoZSB0YWJsZSBhYm92ZSwgd2Ugd2lsbCB1c2UgdGhlIGByZWFkX3hsc3goKWAgYW5kIGByZWFkX3hscygpYCBmdW5jdGlvbnMgb2YgdGhlIGByZWFkeGxgIHBhY2thZ2UgdG8gaW1wb3J0IHRoZSBkYXRhIGZyb20gdGhlIC54bHN4IGFuZCAueGxzIGZpbGVzIHJlc3BlY3RpdmVseSBhbmQgd2Ugd2lsbCB1c2UgdGhlIGByZWFkX2NzdmAgZnVuY3Rpb24gb2YgdGhlIGByZWFkcmAgcGFja2FnZSB0byBpbXBvcnQgdGhlIGRhdGEgZnJvbSB0aGUgY3N2IGZpbGVzLgoKYGBge3J9CiMgeGxzeCBmaWxlczoKQ08yX2VtaXNzaW9ucyA8LSByZWFkeGw6OnJlYWRfeGxzeChoZXJlKCJkb2NzL3llYXJseV9jbzJfZW1pc3Npb25zXzEwMDBfdG9ubmVzLnhsc3giKSkKZ2RwX2dyb3d0aCA8LSByZWFkeGw6OnJlYWRfeGxzeChoZXJlKCJkb2NzL2dkcF9wZXJfY2FwaXRhX3llYXJseV9ncm93dGgueGxzeCIpKQplbmVyZ3lfdXNlIDwtIHJlYWR4bDo6cmVhZF94bHN4KGhlcmUoImRvY3MvZW5lcmd5X3VzZV9wZXJfcGVyc29uLnhsc3giKSkKCiMgeGxzIGZpbGU6Cm1vcnRhbGl0eSA8LSByZWFkeGw6OnJlYWRfeGxzKGhlcmUoImRvY3MvQVBJX1NQLkRZTi5DRFJULklOX0RTMl9lbl9leGNlbF92Ml84MDQzODQueGxzIikpCmBgYAoKRm9yIG91ciBjc3YgZGF0YSBmaWxlcywgdGhlcmUgYXJlIHNvbWUgbGluZXMgdGhhdCB3ZSB3b3VsZCBsaWtlIHRvIG5vdCBpbXBvcnQgLSBpbmZhY3QsIHdlIHdpbGwgZ2V0IGFuIGVycm9yIGlmIHdlIHRyeSB0byBpbXBvcnQgdGhlbSBiZWNhdXNlIG91ciB0YWJsZSBzdHJ1Y3R1cmUgd2lsbCBiZSBhcyByIGV4cGVjdHMuIFdlIGNhbiBkbyBzbyB1c2luZyB0aGUgYHNraXAgPWAgYXJndW1lbnQgb2YgdGhlIGByZWFkX2NzdigpYCBmdW5jdGlvbi4gCgpIZXJlIHlvdSBjYW4gc2VlIHRoYXQgdGhlIGZpcnN0IHR3byByb3dzIG9mIHRoZSBkYXRhIGFib3V0IFVTIERpc2FzdGVycyBkb2Vzbid0IGhhdmUgdGhlIHNhbWUgbnVtYmVyIG9mIGNvbHVtbnMgYXMgdGhlIHN1YnNlcXVlbnQgcm93cy4gU28gd2Ugd2FudCB0byBza2lwIHRoZXNlIGZpcnN0IHR3byBsaW5lcywgd2Ugd2lsbCB1c2UgYHNraXAgPSAyYCBmb3IgdGhpcy4KCmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aCA9ICI4MDAgcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAiRGlzYXN0ZXJzLnBuZyIpKQpgYGAKTm93IGxvb2tpbmcgYXQgdGhlIHRlbXBlcmF0dXJlIGRhdGEsIHdlIGNhbiBzZWUgdGhhdCAgdGhlIGZpcnN0IGZvdXIgbGluZXMgZG8gbm90IGhhdmUgdGhlIHNhbWUgbnVtYmVyIG9mIGNvbHVtbnMgYXMgdGhlIHN1YnNlcXVlbnQgbGluZXMuIFdlIHdpbGwgc2tpcCBpbXBvcnRpbmcgYWxsIDQgbGluZXMgYnkgdXNpbmcgYHNraXAgPSA0YC4gV2UgY2FuIGFsc28gc3BlY2lmeSB0aGF0IGBOQWAgdmFsdWVzIGFyZSBlbmNvZGVkIGFzIGAiLTk5ImAuIFRoaXMgd2lsbCByZXBsYWNlIGFsbCBpbnN0YW5jZXMgb2YgYCItOTkiYCB3aXRoIGBOQWAuIFdlIGNhbiBkbyB0aGlzIHVzaW5nIHRoZSBgbmEgPSBgIGFyZ3VtZW50IG9mIHRoZSBgcmVhZF9jc3YoKWAgZnVuY3Rpb24uIFdlIHdpbGwgZG8gc28gYXM6IGBuYSA9ICItOTkiYC4gVGhlICItOTkiIG5lZWRzIHRvIGJlIGluIHF1b3RhdGlvbiBtYXJrZXMgYmVjdWFzZSB0aGlzIGFyZ3VtZW50IGV4cGVjdHMgY2hhcmFjdGVycy4KCmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aCA9ICI4MDAgcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAidGVtcGRhdGEucG5nIikpCmBgYAoKYGBge3J9CiNjc3YgZmlsZXM6CnVzX2Rpc2FzdGVyIDwtIHJlYWRyOjpyZWFkX2NzdihoZXJlKCJkb2NzL3RpbWUtc2VyaWVzLVVTLmNzdiIpLCBza2lwID0gMikKdXNfdGVtcGVyYXR1cmUgPC0gcmVhZHI6OnJlYWRfY3N2KGhlcmUoImRvY3MvdGVtcGVyYXR1cmUudHh0IiksIHNraXAgPSA0LCBuYSA9Ii05OSIpCmBgYAoKR3JlYXQhIG5vdyB3ZSBoYXZlIGltcG9ydGVkIGFsbCBvZiB0aGUgZGF0YSB0aGF0IHdlIHdpbGwgbmVlZC4KCgojIyAqKkRhdGEgRXhwbG9yYXRpb24gYW5kIFdyYW5nbGluZyoqCioqKiAKCk5vdyB3ZSB3aWxsIHRha2UgYSBsb29rIGF0IG91ciBkYXRhIGFuZCB3cmFuZ2xlIGl0IHVudGlsIGl0IGlzIGVhc3kgdG8gdXNlIHRvIGFsbG93IHVzIHRvIGV2YWx1YXRlIGhvdyBDTzIgZW1pc3Npb25zIGhhdmUgY2hhbmdlZCBvdmVyIHRpbWUgYW5kIGhvdyBlbWlzc2lvbnMgbWF5IHJlbGF0ZSB0byBlbmVyZ3kgdXNlLCBtb3J0YWxpdHksIEdEUCBldGMuIAoKIyMjIFllYXJseSBDT34yfiBFbWlzc2lvbnMKCkZpcnN0IGxldCdzIHRha2UgYSBsb29rIGF0IHRoZSBDTzIgZGF0YS4gV2UgY2FuIHVzZSB0aGUgYmFzZSBgaGVhZCgpYCBmdW5jdGlvbiB0byBzZWUganVzdCB0aGUgZmlyc3QgNiByb3dzIG9mIG91ciBkYXRhLgoKV2Ugd2lsbCB1c2UgdGhlIGAlPiVgIHBpcGUgd2hpY2ggY2FuIGJlIHVzZWQgdG8gZGVmaW5lIHRoZSBpbnB1dCBmb3IgbGF0ZXIgc2VxdWVudGlhbCBzdGVwcy4gVGhpcyB3aWxsIG1ha2UgbW9yZSBzZW5zZSB3aGVuIHdlIGhhdmUgbXVsdGlwbGUgc2VxdWVudGlhbCBzdGVwcyB1c2luZyB0aGUgc2FtZSBkYXRhIG9iamVjdC4gVG8gdXNlIHRoZSBwaXBlIG5vdGF0aW9uIHdlIG5lZWQgdG8gaW5zdGFsbCBhbmQgbG9hZCAgdGhlIGBkcGx5cmAgcGFja2FnZS4KCmBgYHtyfQpDTzJfZW1pc3Npb25zICU+JQogIGhlYWQoKQpgYGAKCk9LLCB3ZSBjYW4gc2VlIHRoYXQgb3VyIGNvdW50cnkgZGF0YSBtYWtlcyBvZiB0aGUgcm93cyBhbmQgdGhlIHllYXJseSBkYXRhIG1ha2VzIHVwIHRoZSBjb2x1bW5zLiBXZSBhbHNvIHNlZSB0aGF0IHdlIGhhdmUgYWxvdCBvZiBgTkFgIHZhbHVlcy4KCgpXZSBjYW4gYWxzbyB1c2UgdGhlIGBnbGltcHNlKClgIGZ1bmN0aW9uIG9mIHRoZSBgZHBseXJgIHBhY2tnZSB0byB2aWV3IG91ciBkYXRhLiBUaGlzIGFsbG93cyB1cyB0byBzZWUgbW9yZSBvZiBvdXIgZGF0YSBhdCBvbmNlLiBXZSB3aWxsIHNlZSBhIHRpbnkgYml0IG9mIGVhY2ggdmFyaWFibGUvY29sdW1uLiBUbyBkbyBzbyBvdXIgZGF0YSB3aWxsIGJlIGRpc3BsYXllZCB3aXRoIHRoZSBjb2x1bW4gbmFtZXMgbGlzdGVkIG9uIHRoZSByaWdodC4KCiMjIyMgey5zY3JvbGxhYmxlIH0KYGBge3J9CiMgU2Nyb2xsIHRocm91Z2ggdGhlIG91dHB1dCEKQ08yX2VtaXNzaW9ucyAlPiUKZHBseXI6OmdsaW1wc2UoKQpgYGAKIyMjIwoKV2UgY2FuIHNlZSB0aGF0IHdlIGhhdmUgYSBsYXJnZSBbdGliYmxlXShodHRwczovL3RpYmJsZS50aWR5dmVyc2Uub3JnLykuIEEgdGliYmxlIGlzIHRoZSB0aWR5dmVyc2UgdmVyc2lvbiBvZiBhIGRhdGEgZnJhbWUuIEl0IGlzIGVzc2VudGlhbGx5IGEgdGFibGUgd2l0aCB2YXJpYWJsZSBpbmZvcm1hdGlvbiBhcnJhbmdlZCBhcyBjb2x1bW5zLCBhbmQgaW5kaXZpZHVhbCBvYnNlcnZhdGlvbnMgYXJyYW5nZWQgYXMgcm93cy4gV2UgY2FuIHNlZSB0aGF0IHRoZSB0aWJibGUgZ2l2ZXMgdXMgaW5mb3JtYXRpb24gYWJvdXQgdGhlIGNsYXNzIG9mIGVhY2ggdmFyaWFibGUuICBGb3IgZXhhbXBsZSB0aGUgYGNvdW50cnlgIHZhcmlhYmxlIGlzIG1hZGUgdXAgb2YgY2hhcmFjdGVyIChhYmJyZXZpYXRlZCBhcyBjaHIpIHZhbHVlcy4gV2Ugc2VlIHRoYXQgd2UgaGF2ZSAyNjUgZGlmZmVyZW50IGNvdW50cnkgdmFyaWFibGVzIGFuZCBDTzIgZW1pc3Npb24gdmFsdWVzIGZvciAxOTIgZGlmZmVyZW50IHllYXJzIChmcm9tIDE3NTEgdG8gMjAxNCkuIFJlY2FsbCB0aGF0IHRoZSB2YWx1ZXMgYXJlIGVtaXNzaW9ucyBpbiBtZXRyaWMgdG9ucyBhbHNvIGNhbGxlZCB0b25uZXMuIFdlIGNhbiBzZWUgdGhhdCB0aGVyZSBhcmUgZmV3ZXIgYE5BYCB2YWx1ZXMgZm9yIGxhdGVyIHllYXJzLgoKTm93IHdlIHdpbGwgbW9kaWZ5IHRoaXMgZGF0YSB0byBtYWtlIGl0IG1vcmUgdXNhYmxlIGZvciBtYWtpbmcgdmlzdWFsaXphdGlvbnMuIE9uZSB0aGluZyB3ZSB3aWxsIHVzZSBpcyB0aGUgYCU8PiVgIG9wcGVyYXRvciB3aGljaCBpcyBmcm9tIHRoZSBgbWFncml0dHJgIHBhY2thZ2UuIFRoaXMgYWxsb3dzIHVzIHRvIHVzZSBvdXIgYENPMl9lbWlzc2lvbnNgIGRhdGEgYW5kIHJlYXNzaWduIGl0IHRvIGEgbW9kaWZpZWQgdmVyc2lvbiBhdCB0aGUgc2FtZSB0aW1lLiAKCldlIHdpbGwgdXNlIHRoZSBgcGl2b3RfbG9uZ2VyKClgIGZ1bmN0aW9uIG9mIHRoZSBgZHBseXJgIHBhY2thZ2UgdG8gY29udmVydCBvdXIgZGF0YSBpbnRvIHdoYXQgaXMgY2FsbGVkIGxvbmcgZm9ybWF0LiBUaGlzIG1lYW5zIHRoYXQgd2Ugd2lsbCBoYXZlIG1vcmUgcm93cyBhbmQgZmV3ZXIgY29sdW1ucyB0aGFuIG91ciBjdXJyZW50IGZvcm1hdC4gVGhpcyBpcyBkb25lIGJ5IGNvbGxhcHNpbmcgbXVsdGlwbGUgdmFyaWFibGVzIGludG8gZmV3ZXIgdmFyaWFibGVzLgoKV2Ugd2FudCB0byBjb2xsYXBzZSBhbGwgb2YgdGhlIHZhbHVlcyBmb3IgdGhlIGVtaXNzaW9uIGRhdGEgYWNyb3NzIHRoZSBkaWZmZXJlbnQgaW5kaXZpZHVhbCB5ZWFyIHZhcmlhYmxlcyBpbnRvIG9uZSBuZXcgZW1pc3Npb24gdmFyaWFibGUgYW5kIHdlIHdpbGwgaWRlbnRpZnkgd2hhdCB5ZWFyIHRoZXkgYXJlIGZyb20gdXNpbmcgYSBuZXcgYFllYXJgIHZhcmlhYmxlLgoKYGBge3J9CkNPMl9lbWlzc2lvbnMgICU8PiUKICBwaXZvdF9sb25nZXIoY29scyA9IC1jb3VudHJ5LCBuYW1lc190byA9ICJZZWFyIiwgdmFsdWVzX3RvID0gIkVtaXNzaW9ucyIpCgpoZWFkKENPMl9lbWlzc2lvbnMpCmBgYAoKV2UgYWxzbyB3YW50IHRvIHJlbmFtZSB0aGUgYGNvdW50cnlgIHZhcmlhYmxlIHRvIGJlIGNhcGl0YWxpemVkLiBXIFdlIGNhbiB1c2UgdGhlIGByZW5hbWUoKWAgZnVuY3Rpb24gb2YgdGhlIGBkcGx5cmAgcGFja2FnZSB0byByZW5hbWUgdGhpcyB2YXJpYWJsZS4gV2hlbiByZW5hbWluZyB2YXJpYWJsZXMgdGhlIG5ldyBuYW1lIGlzIGxpc3RlZCBmaXJzdCBiZWZvcmUgdGhlIGA9YC4gV2Ugd2lsbCBhbHNvIG1vZGlmeSB0aGUgYEVtaXNzaW9uc2AgZGF0YSBieSBkaXZpZGluZyBpdCBieSAxMDAwIHRvIG1ha2UgdGhlIG51bWJlcnMgc21hbGxlci4gVG8gZG8gdGhpcyB3ZSB3aWxsIHVzZSB0aGUgYG11dGF0ZSgpYCBmdW5jdGlvbiwgd2hpY2ggaXMgYWxzbyBwYXJ0IG9mIHRoZSBgZHBseXIoKWAgcGFja2FnZS4gVGhpcyBmdW5jdGlvbiBhbGxvd3MgdXMgdG8gY3JlYXRlIGFuZCBtb2RpZnkgdmFyaWFibGVzLiBZb3UgbWF5IGFsc28gbm90ZSB0aGF0IHRoZSBgWWVhcmAgdmFyaWFibGUgaXMgY3VycmVudGx5IG9mIGNsYXNzIHR5cGUgY2hhcmFjdGVyLiBXZSB3b3VsZCBsaWtlIHRvIGNoYW5nZSBpdCB0byBiZSBudW1lcmljLiBUaGlzIGNhbiBhbHNvIGJlIGFjY29tcGxpc2hlZCB1c2luZyB0aGUgYG11dGF0ZSgpYCBmdW5jdGlvbi4KCmBgYHtyfQogIAogQ08yX2VtaXNzaW9ucyAgJTw+JSAKICAgZHBseXI6OnJlbmFtZShDb3VudHJ5PWNvdW50cnkpICU+JQogICBkcGx5cjo6bXV0YXRlKEVtaXNzaW9ucyA9IEVtaXNzaW9ucy8xMDAwLCAKICAgICAgICAgIFllYXIgPSBhcy5udW1lcmljKFllYXIpKSAlPiUKICAgICByZW5hbWUoYENPMiBFbWlzc2lvbnMgKE1nKWA9IEVtaXNzaW9ucykKCmBgYAoKTm93IGxldCdzIHRha2UgYSBsb29rIHRvIHNlZSBob3cgb3VyIGRhdGEgaGFzIGNoYW5nZWQ6CgpgYGB7cn0KCkNPMl9lbWlzc2lvbnMgJT4lCmhlYWQoKQoKYGBgCkdyZWF0LCB3ZSBjYW4gc2VlIHRoYXQgbm93IHRoZSBgWWVhcmAgdmFyaWFibGUgaXMgb2YgY2xhc3MgZG91YmxlIChhYmJyZXZpYXRlZCBgZGJsYCksIHdoaWNoIGlzIGEgbnVtZXJpYyBjbGFzcy4KCiMjIyBZZWFybHkgR3Jvd3RoIGluIEdEUCBwZXIgQ2FwaXRhCgpgYGB7cn0KZ2RwX2dyb3d0aCAlPiUKICBoZWFkKCkKYGBgCgpgYGB7cn0KbmFtZXMoZ2RwX2dyb3d0aCkKYGBgCgojIyMjIHsuc2Nyb2xsYWJsZX0KYGBge3J9CiMgU2Nyb2xsIHRocm91Z2ggdGhlIG91dHB1dCEKZ2RwX2dyb3d0aCAlPiUKZ2xpbXBzZSgpCmBgYAojIyMjCgpBZ2Fpbiwgd2Ugd2lsbCB1c2UgdGhlIGBwaXZvdF9sb25nZXIoKWAgdG8gdHJhbnNmb3JtIHRoZSBkYXRhIHRvIGxvbmcgZm9ybWF0LiBXZSB3aWxsIGFsc28gYWdhaW4gY2hhbmdlIHRoZSBgY291bnRyeWAgdmFyaWFibGUgdG8gYmUgYENvdW50cnlgIGJ5IHVzaW5nIHRoZSBgcmVuYW1lKClgIGZ1bmN0aW9uICwgYW5kIHdlIHdpbGwgbWFrZSB0aGUgYFllYXJgIHZhcmFpYmxlIG51bWVyaWMgdXNpbmcgdGhlIGBtdXRhdGUoKWAgZnVuY3Rpb24uIAoKV2Ugd2lsbCB1c2UgdGhlIGBkcm9wX25hKClgIGZ1bmN0aW9uIG9mIHRoZSBgdGlkeXJgIHBhY2thZ2UgdG8gZHJvcCBhbGwgeWVhcnMgd2l0aCBtaXNzaW5nIGRhdGEuCgpgYGB7cn0KIyBnZHBfZ3Jvd3RoICU8PiUKIyAgICB0aWR5cjo6ZHJvcF9uYSgpCiMgCiMgaGVhZChnZHBfZ3Jvd3RoKQpgYGAKCmBgYHtyfQpnZHBfZ3Jvd3RoICU8PiUKICBwaXZvdF9sb25nZXIoY29scyA9IC1jb3VudHJ5LCAKICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAiWWVhciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiZ2RwX2dyb3d0aCIpICU+JQogIHJlbmFtZShDb3VudHJ5PWNvdW50cnkpICU+JQogIG11dGF0ZShZZWFyID1hcy5udW1lcmljKFllYXIpKSAlPiUKICAjICB0aWR5cjo6ZHJvcF9uYSgpICU+JSAjIG5vdCBzdXJlIHdlIG5lZWQgdGhpcy4uCiAgcmVuYW1lKGBHRFAgR3Jvd3RoL0NhcGl0YSAoJSlgID0gZ2RwX2dyb3d0aCkKYGBgCgpOb3cgbGV0J3Mgc2VlIGhvdyB0aGlzIGRhdGEgaGFzIGNoYW5nZWQ6CgpgYGB7cn0KZ2RwX2dyb3d0aCAlPiUKICBoZWFkKCkKCmdkcF9ncm93dGggJT4lCiAgY291bnQoWWVhcikKYGBgCgojIyMgRW5lcmd5IFVzZSBwZXIgUGVyc29uCgpgYGB7cn0KZW5lcmd5X3VzZSAlPiUKICBoZWFkKCkKYGBgCgpgYGB7cn0KZW5lcmd5X3VzZSAlPiUKICBnbGltcHNlKCkKYGBgCgoKYGBge3J9CmVuZXJneV91c2UgJTw+JQogIHBpdm90X2xvbmdlcihjb2xzID0gLWNvdW50cnksIG5hbWVzX3RvID0gIlllYXIiLCB2YWx1ZXNfdG8gPSAiZW5lcmd5X3VzZSIpICU+JQogIHJlbmFtZShDb3VudHJ5PWNvdW50cnkpICU+JQogIG11dGF0ZShZZWFyID0gYXMubnVtZXJpYyhZZWFyKSkgJT4lCiAgcmVuYW1lKGBFbmVyZ3kgVXNlIChrZywgb2lsLWVxLi9jYXBpdGEpYCA9IGVuZXJneV91c2UpCgpgYGAKCiMjIyMgey5zY3JvbGxhYmxlfQpgYGB7cn0KIyBTY3JvbGwgdGhyb3VnaCB0aGUgb3V0cHV0IQplbmVyZ3lfdXNlICU+JQpnbGltcHNlKCkKYGBgCiMjIyMKCiMjIyBDcnVkZSBNb3J0YWxpdHkgUmF0ZQoKYGBge3J9Cm1vcnRhbGl0eSAlPiUKICBoZWFkKCkKYGBgCgoKV2UgY2FuIHNlZSB0aGF0IHRoZXJlIGFyZSBhIGNvdXBsZSBvZiBlbXB0eSByb3dzIHdoaWNoIGluZGljYXRlIHdoZW4gdGhlIGRhdGEgd2FzIHVwZGF0ZWQuCldlIGNhbiBhbHNvIHNlZSB0aGF0IHRoZSBjb2x1bW5zIHJlYWxseSBzdGFydCBhdCB0aGUgM3JkIHJvdy4gU28gZmlyc3Qgd2Ugd2lsbCByZXBhY2UgdGhlIGNvbHVtbiBuYW1lcyB3aXRoIHRoZSAzcmQgcm93LiBUaGVuIHdlIHdpbGwgcmVtb3ZlIHRoZSBmaXJzdCAzIHJvd3MuCgpgYGB7cn0KY29sbmFtZXMobW9ydGFsaXR5KQpjb2xuYW1lcyhtb3J0YWxpdHkpIDwtIG1vcnRhbGl0eVszLF0KY29sbmFtZXMobW9ydGFsaXR5KQptb3J0YWxpdHkgPC0gbW9ydGFsaXR5Wy1jKDE6MyksXQpgYGAKCgoKIyMjIyB7LnNjcm9sbGFibGV9CmBgYHtyfQptb3J0YWxpdHkgJT4lCiAgZ2xpbXBzZSgpCgpgYGAKIyMjIwoKClRoYXQgaXMgbG9va2luZyBiZXR0ZXIhIEhvd2V2ZXIsIHdlIGFsc28gd2FudCB0byByZW1vdmUgc29tZSB2YXJpYWJsZXMgbGlrZTogYENvdW50cnkgQ29kZWAsIGBJbmRpY2F0b3IgTmFtZWAsIGFuZCBgSW5kaWNhdG9yIENvZGVgLiBXZSBjYW4gZG8gdGhhdCB1c2luZyB0aGUgYHNlbGVjdCgpYCBmdW5jdGlvIG9mIHRoZSBgZHBseXJgIHBhY2thZ2UuIFdlIGNhbiB1c2UgdGhlIG1pbnVzIHNpZ24gYC1gIHRvIGluZGljYXRlIHdoYXQgdmFyaWFibGVzIHdlIGRvbnQgd2FudCB0byBrZWVwLgoKYGBge3J9Cm1vcnRhbGl0eSAlPD4lCiAgc2VsZWN0KC1gQ291bnRyeSBDb2RlYCwKICAgICAgICAgLWBJbmRpY2F0b3IgTmFtZWAsCiAgICAgICAgIC1gSW5kaWNhdG9yIENvZGVgKSAlPiUKICByZW5hbWUoQ291bnRyeSA9ICJDb3VudHJ5IE5hbWUiKSAlPiUKICAjZ2F0aGVyKGtleSA9IFllYXIsIHZhbHVlID0gYERlYXRocy8xMDAwIFBlb3BsZWAsIC1Db3VudHJ5KSAlPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC1Db3VudHJ5LCAKICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAiWWVhciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiRGVhdGhzLzEwMDAgUGVvcGxlIikgJT4lCiAgbXV0YXRlKFllYXIgPSBhcy5udW1lcmljKFllYXIpKSAlPiUKICBtdXRhdGUoYERlYXRocy8xMDAwIFBlb3BsZWAgPSBhcy5udW1lcmljKGBEZWF0aHMvMTAwMCBQZW9wbGVgKSkKCmBgYAoKYGBge3J9Cm1vcnRhbGl0eSAlPiUKICBoZWFkKCkKYGBgCgoKIyMgVVMtc3BlY2lmaWMgRGF0YQoKIyMjIERpc2FzdGVycwoKYGBge3J9CnVzX2Rpc2FzdGVyICAlPiUKICBoZWFkKCkKYGBgCgpXZSBhcmUgc3BlY2lmaWNhbGx5IGludGVyZXN0ZWQgaW4gdGhlIGBZZWFyYCBhbmQgIHRoZSB2YXJpYWJsZXMgdGhhdCBjb250YWluIHRoZSB3b3JkIGAiQ291bnQiYCBzbyB3ZSB3aWxsIHNlbGVjdCB0aGVtIHVzaW5nIHRoZSBgc2VsZWN0KClgIGFuZCBgY29udGFpbnMoKWAgZnVuY3Rpb25zIGluIHRoZSBgZHBseXJgIHBhY2thZ2UuIFNpbmNlIHdlIGFyZSBzZWxlY3RpbmcgZm9yIHZhcmlhYmxlcyB3aXRoIHRoZSB3b3JkIGAiQ291bnQiYCB3ZSBuZWVkIHRvIHVzZSBxdW90YXRpb24gbWFya3MgYXJvdW5kIGl0LiBTZWxlY3RpbmcgZm9yIHRoZSB2YXJpYWJsZSBgeWVhcmAgZG9lcyBub3QgcmVxdWlyZSB0aGlzIGFzIHRoYXQgaXMgYWN0dWFsbHkgdGhlIG5hbWUgb2Ygb25lIG9mIHRoZSBleGlzdGluZyB2YXJpYWJsZXMuCgoKYGBge3J9CnVzX2Rpc2FzdGVyICU8PiUKICAgICAgICAgICBzZWxlY3QoWWVhciwgY29udGFpbnMoIkNvdW50IikpCgp1c19kaXNhc3RlciAlPiUKICBoZWFkKCkKYGBgCgpOb3cgd2Ugd2FudCB0byBjcmVhdGUgYSBuZXcgdmFyaWFibGUgdGhhdCB3aWxsIGJlIHRoZSBzdW0gb2YgYWxsIHRoZSBkaWZmZXJlbnQgdHlwZXMgb2YgZGlzYXN0ZXJzIGZvciBlYWNoIHllYXIuIAoKV2UgY2FuIGNyZWF0ZSB0aGlzIG5lIHZhcmlhYmxlIHVzaW5nIHRoZSBgbXV0YXRlKClgIGZ1bmN0aW9uIG9mIGBkcGx5cmAgYW5kIHdlIHdpbGwgdXNlIHRoZSBiYXNlIGByb3dTdW1zKClgIGZ1bmN0aW9uIHRvIHBlcmZvcm0gdGhlIGNhbGN1bGF0aW9uLiBXZSBkb250IHdhbnQgdG8gaW5jbHVkZSB0aGUgYFllYXJgIHZhcmlhYmxlIGluIG91ciBzdW0sIHNvIHdlIGNhbiBleGNsdWRlIGl0IHVzaW5nIHRoZSBgc2VsZWN0YGZ1bmN0aW9uIHdpdGhpbiB0aGUgYHJvd1N1bXMoKWAgZnVuY3Rpb24uIEhvd2V2ZXIsIHRvIGRvIHNvIHdlIG5lZWQgdG8gaW5kaWNhdGUgdGhhdCB3ZSBhcmUgdXNpbmcgdGhlIGRhdGEgdGhhdCB3ZSBhbHJlYWR5IHVzZWQgYXMgaW5wdXQgdG8gb3VyIGBtdXRhdGUoKWAgYW5kIGByb3dTdW1zKClgIGZ1bmN0aW9ucy4gV2UgY2FuIGRvIHNvIGJ5IHVzaW5nIGEgYC5gLiAKCgpgYGB7cn0KdXNfZGlzYXN0ZXIgJTw+JQogIG11dGF0ZShgRGlzYXN0ZXJzYCA9IHJvd1N1bXMoc2VsZWN0KC4sIC1ZZWFyKSkpIAoKdXNfZGlzYXN0ZXIgJT4lCiAgZ2xpbXBzZSgpCmBgYAoKYGBge3J9CnVzX2Rpc2FzdGVyICU8PiUKICBkcGx5cjo6c2VsZWN0KFllYXIsCiAgICAgICAgICAgICAgICBgRGlzYXN0ZXJzYCkgJT4lCiAgbXV0YXRlKENvdW50cnkgPSAiVW5pdGVkIFN0YXRlcyIpICU+JQogIHBpdm90X2xvbmdlcihjb2xzID0gYygtQ291bnRyeSwgLSBZZWFyKSwKICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAiSW5kaWNhdG9yIiwKICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gIlZhbHVlIikgJT4lCiAgbXV0YXRlKFJlZ2lvbiA9ICJVbml0ZWQgU3RhdGVzIiwKICAgICAgICAgICBUeXBlID0gIlVTLXNwZWNpZmljIikKYGBgCgojIyMgVGVtcGVyYXR1cmUKCmBgYHtyfQp1c190ZW1wZXJhdHVyZSA8LSByZWFkX2NzdihoZXJlKCJkb2NzL3RlbXBlcmF0dXJlLnR4dCIpLHNraXA9NCxuYT0iLTk5IikKCnNhcHBseSh1c190ZW1wZXJhdHVyZSwgY2xhc3MpCgp1c190ZW1wZXJhdHVyZSA8LSB1c190ZW1wZXJhdHVyZSAlPiUKICBkcGx5cjo6c2VsZWN0KC1Bbm9tYWx5KSAlPiUKICBtdXRhdGUoRGF0ZSA9IHN1YnN0cihEYXRlLCBzdGFydCA9IDEsIHN0b3AgPSA0KSkgJT4lCiAgbXV0YXRlKENvdW50cnk9IlVuaXRlZCBTdGF0ZXMiLAogICAgICAgICBZZWFyID0gRGF0ZSwKICAgICAgICAgSW5kaWNhdG9yPSJUZW1wZXJhdHVyZSAoRmFocmVuaGVpdCkiLAogICAgICAgICBSZWdpb249IlVuaXRlZCBTdGF0ZXMiLAogICAgICAgICBUeXBlPSJVUy1zcGVjaWZpYyIpICU+JQogIGRwbHlyOjpzZWxlY3QoLURhdGUsICkKYGBgCgojIyBBbmFseXNpcyBkYXRhIGZyYW1lCgpgYGB7cn0KY29sbmFtZXMoQ08yX2VtaXNzaW9ucykKY29sbmFtZXMoZ2RwX2dyb3d0aCkKY29sbmFtZXMoZW5lcmd5X3VzZSkKY29sbmFtZXMobW9ydGFsaXR5KQoKZGZfd2lkZSA8LSBDTzJfZW1pc3Npb25zICU+JQogIGZ1bGxfam9pbihnZHBfZ3Jvd3RoLCBieT1jKCJDb3VudHJ5IiwgIlllYXIiKSkgJT4lCiAgZnVsbF9qb2luKGVuZXJneV91c2UsIGJ5PWMoIkNvdW50cnkiLCAiWWVhciIpKSAlPiUKICBmdWxsX2pvaW4obW9ydGFsaXR5LCBieT1jKCJDb3VudHJ5IiwgIlllYXIiKSkKCmRmX2xvbmcgPC0gZGZfd2lkZSAlPiUKICBnYXRoZXIoa2V5PUluZGljYXRvcix2YWx1ZT1WYWx1ZSwtQ291bnRyeSwgLVllYXIpICU+JQogIG11dGF0ZShSZWdpb249Y2FzZV93aGVuKENvdW50cnk9PSJVbml0ZWQgU3RhdGVzIiB+ICJVbml0ZWQgU3RhdGVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBDb3VudHJ5IT0iVW5pdGVkIFN0YXRlcyIgfiAiUmVzdCBvZiB0aGUgV29ybGQiKSwKICAgICAgICAgVHlwZT0iR2xvYmFsIikKCnNldGVxdWFsKHNhcHBseShkZl9sb25nLCBjbGFzcyksc2FwcGx5KHVzX2Rpc2FzdGVyLCBjbGFzcykpCnNldGVxdWFsKHNhcHBseShkZl9sb25nLCBjbGFzcyksc2FwcGx5KHVzX3RlbXBlcmF0dXJlLCBjbGFzcykpCgpkZl9sb25nIDwtIGRmX2xvbmcgJT4lCiAgcmJpbmQodXNfZGlzYXN0ZXIpICU+JQogIHJiaW5kKHVzX3RlbXBlcmF0dXJlKQoKc2FwcGx5KGRmX2xvbmcsY2xhc3MpCgpkZl9sb25nJENvdW50cnkgPC0gYXMuZmFjdG9yKGRmX2xvbmckQ291bnRyeSkKZGZfbG9uZyRZZWFyIDwtIGFzLm51bWVyaWMoZGZfbG9uZyRZZWFyKQoKc2FwcGx5KGRmX2xvbmcsY2xhc3MpCgpkZl9sb25nIDwtIGRmX2xvbmcgJT4lCiAgZmlsdGVyKGNvbXBsZXRlLmNhc2VzKC4pKSAlPiUKICBhcnJhbmdlKENvdW50cnkpCmBgYAoKCgoKIyMgKipEYXRhIFZpc3VhbGl6YXRpb24qKgoqKiogCgoKIyMjIENPMiBwbG90cwoKV2Ugd2lsbCByZW5hbWUgdGhlIGBFbWlzc2lvbnNgIHZhcmlhYmxlIHNvIHRoYXQgaXQgd2lsbCBpbmNsdWRlIG1vcmUgaW5mb3JtYXRpb24gaW4gb3VyIHBsb3QuCgpgYGB7cn0KCkNPMl9lbWlzc2lvbnMgJT4lCiAgIyByZW5hbWUoYENPMiBFbWlzc2lvbnMgKE1nKWA9IEVtaXNzaW9ucykgJT4lCmdncGxvdChhZXMoeD1ZZWFyLCB5PWBDTzIgRW1pc3Npb25zIChNZylgLCBncm91cD1Db3VudHJ5KSkgKwogIGdlb21fbGluZShhbHBoYT0wLjIpICsgCiAgbGFicyh0aXRsZSA9IGV4cHJlc3Npb24oIkNvdW50cnkgQ08iWzJdKiIgRW1pc3Npb25zIHBlciBZZWFyICwgMTc1MS0yMDE0IiksCiAgICAgICBjYXB0aW9uID0gZXhwcmVzc2lvbigiTGltaXRlZCB0byByZXBvcnRpbmcgY291bnRyaWVzIikpICsgCiAgeWxhYigiRW1pc3Npb25zICgxTSBNZXRyaWMgVG9ubmVzKSIpCgpDTzJfd29ybGQ8LUNPMl9lbWlzc2lvbnMgJT4lCiAjIHJlbmFtZShgQ08yIEVtaXNzaW9ucyAoTWcpYD0gRW1pc3Npb25zKSAlPiUKICBncm91cF9ieShZZWFyKSAlPiUKICBzdW1tYXJpc2UoYENPMiBFbWlzc2lvbnMgKE1nKWAgPSBzdW0oYENPMiBFbWlzc2lvbnMgKE1nKWAsIG5hLnJtID0gVFJVRSkpICU+JQogIGdncGxvdChhZXMoeD1ZZWFyLCB5PWBDTzIgRW1pc3Npb25zIChNZylgKSkgKwogIGdlb21fbGluZSgpICsgCiAgbGFicyh0aXRsZSA9IGV4cHJlc3Npb24oIldvcmxkIENPIlsyXSoiIEVtaXNzaW9ucyBwZXIgWWVhciAsIDE3NTEtMjAxNCIpLAogICAgICAgY2FwdGlvbiA9IGV4cHJlc3Npb24oIkxpbWl0ZWQgdG8gcmVwb3J0aW5nIGNvdW50cmllcyIpKSArIAogIHlsYWIoIkVtaXNzaW9ucyAoMU0gTWV0cmljIE1ldHJpYyBUb25uZXMpIikKQ08yX3dvcmxkCmBgYAoKCiMjIyBZZWFybHkgR3Jvd3RoIGluIEdEUCBwZXIgQ2FwaXRhCgpgYGB7cn0KZ2dwbG90KGdkcF9ncm93dGgsIGFlcyh4PVllYXIsIHk9YEdEUCBHcm93dGgvQ2FwaXRhICglKWAsIGdyb3VwPUNvdW50cnkpKSArCiAgZ2VvbV9saW5lKGFscGhhPTAuMikgKyAKICBsYWJzKHRpdGxlID0gZXhwcmVzc2lvbigiQ291bnRyeSBHRFAgR3Jvd3RoIHBlciBDYXBpdGEgcGVyIFllYXIgKEFubnVhbCAlKSwgMTgwMS0yMDE5IiksCiAgICAgICBjYXB0aW9uID0gZXhwcmVzc2lvbigiTGltaXRlZCB0byByZXBvcnRpbmcgY291bnRyaWVzIikpICsgCiAgeWxhYigiR0RQIEdyb3d0aCBwZXIgQ2FwaXRhIChBbm51YWwgJSkiKQoKZ2RwX2dyb3d0aCAlPiUKICBncm91cF9ieShZZWFyKSAlPiUKICBzdW1tYXJpc2UoYEdEUCBHcm93dGgvQ2FwaXRhICglKWAgPSBtZWFuKGBHRFAgR3Jvd3RoL0NhcGl0YSAoJSlgLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1gR0RQIEdyb3d0aC9DYXBpdGEgKCUpYCkpICsKICBnZW9tX2xpbmUoKSArIAogIGxhYnModGl0bGUgPSBleHByZXNzaW9uKCJNZWFuIENvdW50cnkgR0RQIEdyb3d0aCBwZXIgQ2FwaXRhIHBlciBZZWFyIChBbm51YWwgJSksIDE4MDEtMjAxOSIpLAogICAgICAgY2FwdGlvbiA9IGV4cHJlc3Npb24oIkxpbWl0ZWQgdG8gcmVwb3J0aW5nIGNvdW50cmllcyIpKSArIAogIHlsYWIoIkdEUCBHcm93dGggcGVyIENhcGl0YSAoQW5udWFsICUpIikKYGBgCgojIyMgRW5lcmd5IFVzZSBwZXIgUGVyc29uCgpgYGB7cn0KZ2dwbG90KGVuZXJneV91c2UsIGFlcyh4PVllYXIsIHk9YEVuZXJneSBVc2UgKGtnLCBvaWwtZXEuL2NhcGl0YSlgLCBncm91cD1Db3VudHJ5KSkgKwogIGdlb21fbGluZShhbHBoYT0wLjIpICsgCiAgbGFicyh0aXRsZSA9IGV4cHJlc3Npb24oIkNvdW50cnkgRW5lcmd5IFVzZSAoa2cgb2YgT2lsIEVxdWl2YWxlbnQgcGVyIENhcGl0YSksIDE5NjAtMjAxNSIsKSwKICAgICAgIGNhcHRpb24gPSBleHByZXNzaW9uKCJMaW1pdGVkIHRvIHJlcG9ydGluZyBjb3VudHJpZXMiKSkgKyAKICB5bGFiKCJFbmVyZ3kgVXNlIChrZyBvZiBPaWwgRXF1aXZhbGVudCBwZXIgQ2FwaXRhKSIpCgplbmVyZ3lfdXNlICU+JQogIGdyb3VwX2J5KFllYXIpICU+JQogIHN1bW1hcmlzZShgRW5lcmd5IFVzZSAoa2csIG9pbC1lcS4vY2FwaXRhKWAgPSBzdW0oYEVuZXJneSBVc2UgKGtnLCBvaWwtZXEuL2NhcGl0YSlgLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1gRW5lcmd5IFVzZSAoa2csIG9pbC1lcS4vY2FwaXRhKWApKSArCiAgZ2VvbV9saW5lKCkgKyAKICBsYWJzKHRpdGxlID0gZXhwcmVzc2lvbigiV29ybGR3aWRlIEVuZXJneSBVc2UgKGtnIG9mIE9pbCBFcXVpdmFsZW50IHBlciBDYXBpdGEpLCAxOTYwLTIwMTUiKSwKICAgICAgIGNhcHRpb24gPSBleHByZXNzaW9uKCJMaW1pdGVkIHRvIHJlcG9ydGluZyBjb3VudHJpZXMiKSkgKyAKICB5bGFiKCJFbmVyZ3kgVXNlIChrZyBvZiBPaWwgRXF1aXZhbGVudCBwZXIgQ2FwaXRhKSIpCmBgYAoKIyMjIENydWRlIE1vcnRhbGl0eSBSYXRlCgoKYGBge3J9CgpnZ3Bsb3QobW9ydGFsaXR5LCBhZXMoeD1ZZWFyLCB5PWBEZWF0aHMvMTAwMCBQZW9wbGVgLCBncm91cD1Db3VudHJ5KSkgKwogIGdlb21fbGluZShhbHBoYT0wLjIpICsgCiAgbGFicyh0aXRsZSA9IGV4cHJlc3Npb24oIkNvdW50cnkgQ3J1ZGUgTW9ydGFsaXR5IFJhdGUgKHBlciAxMDAwIFBlcnNvbnMpLCAxOTYwLTIwMTkiLCksCiAgICAgICBjYXB0aW9uID0gZXhwcmVzc2lvbigiTGltaXRlZCB0byByZXBvcnRpbmcgY291bnRyaWVzIikpICsgCiAgeWxhYigiQ3J1ZGUgTW9ydGFsaXR5IFJhdGUgKHBlciAxMDAwIFBlcnNvbnMpIikKCm1vcnRhbGl0eSAlPiUKICBncm91cF9ieShZZWFyKSAlPiUKICBzdW1tYXJpc2UoYERlYXRocy8xMDAwIFBlb3BsZWAgPSBtZWFuKGBEZWF0aHMvMTAwMCBQZW9wbGVgLCBuYS5ybSA9IFRSVUUpKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1gRGVhdGhzLzEwMDAgUGVvcGxlYCkpICsKICBnZW9tX2xpbmUoKSArIAogIGxhYnModGl0bGUgPSBleHByZXNzaW9uKCJNZWFuIENvdW50cnkgQ3J1ZGUgTW9ydGFsaXR5IFJhdGUgKHBlciAxMDAwIFBlcnNvbnMpLCAxOTYwLTIwMTkiLCksCiAgICAgICBjYXB0aW9uID0gZXhwcmVzc2lvbigiTGltaXRlZCB0byByZXBvcnRpbmcgY291bnRyaWVzIikpICsgCiAgeWxhYigiQ3J1ZGUgTW9ydGFsaXR5IFJhdGUgKHBlciAxMDAwIFBlcnNvbnMpIikKYGBgCgojIyBVUy1zcGVjaWZpYyBEYXRhCgojIyMgRGlzYXN0ZXJzCgoKCgoKCmBgYHtyLCBldmFsPUZBTFNFfQpnZ3Bsb3QoZGZfbG9uZywgYWVzKHg9WWVhciwgeT1WYWx1ZSwgZ3JvdXA9Q291bnRyeSkpICsKICBnZW9tX2xpbmUoYWxwaGE9MC4yKSArIAogIGZhY2V0X2dyaWQoSW5kaWNhdG9yfi4sIHNjYWxlcyA9ICJmcmVlX3kiKSArCiAgeWxhYigiSW5kaWNhdG9yIFZhbHVlIikgKyAKICBsYWJzKHRpdGxlPSJEaXN0cmlidXRpb24gb2YgSW5kaWNhdG9ycyBieSBZZWFyIGFuZCBWYWx1ZSIpCmBgYAoKIyMgU3Vic2V0dGluZyB0aGUgZGF0YQoKYGBge3J9CmRmX2xvbmcgJT4lCiAgZmlsdGVyKFR5cGU9PSJHbG9iYWwiKSAlPiUKICBncm91cF9ieShZZWFyLEluZGljYXRvcikgJT4lCiAgdGFsbHkoKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1uLCBjb2xvcj1JbmRpY2F0b3IpKSArCiAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMTk4MCwgbGluZXR5cGU9MiwgY29sb3I9ImJsYWNrIikgKwogIGdlb21fdmxpbmUoeGludGVyY2VwdCA9IDIwMTAsIGxpbmV0eXBlPTIsIGNvbG9yPSJibGFjayIpICsKICBnZW9tX2xpbmUoKSArCiAgbGFicyh0aXRsZSA9ICJDb3VudHJpZXMgd2l0aCBDb21wbGV0ZSBEYXRhIHBlciBZZWFyIiwKICAgICAgIHN1YnRpdGxlID0gIkdsb2JhbCBEYXRhIikgKyAKICB5bGFiKCJDb3VudHJpZXMiKSArIAogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzZXEoMTc1MCwyMDIwLGJ5PTEwKSwKICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2VxKDE3NTAsMjAyMCxieT0xMCkpICsKICB0aGVtZV9taW5pbWFsKCkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTApLAogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikKCmRmX2xvbmcgJT4lCiAgZmlsdGVyKFJlZ2lvbj09IlVuaXRlZCBTdGF0ZXMiKSAlPiUKICBncm91cF9ieShJbmRpY2F0b3IpICU+JQogIHN1bW1hcmlzZShTdGFydD1taW4oWWVhciksIEVuZD1tYXgoWWVhcikpICU+JQogIGdncGxvdChhZXMoeD1JbmRpY2F0b3IsIHk9RW5kKSkgKwogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDE5ODAsIGxpbmV0eXBlPTIsIGNvbG9yPSJibGFjayIpICsKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAyMDEwLCBsaW5ldHlwZT0yLCBjb2xvcj0iYmxhY2siKSArCiAgZ2VvbV9zZWdtZW50KGFlcyh4PUluZGljYXRvciwKICAgICAgICAgICAgICAgICAgIHhlbmQ9SW5kaWNhdG9yLAogICAgICAgICAgICAgICAgICAgeWVuZD1FbmQsCiAgICAgICAgICAgICAgICAgICB5PVN0YXJ0KSkgKwogIGdlb21fcG9pbnQoYWVzKHg9SW5kaWNhdG9yLCB5PVN0YXJ0KSwgc2hhcGU9MTYsIGNvbG9yPSJibGFjayIpICsKICBnZW9tX3BvaW50KGFlcyh4PUluZGljYXRvciwgeT1FbmQpLCBzaGFwZT0yMSwgZmlsbD0id2hpdGUiLCBjb2xvcj0iYmxhY2siKSArIAogIGNvb3JkX2ZsaXAoKSArCiAgbGFicyh0aXRsZSA9ICJDb21wbGV0ZSBEYXRhIHBlciBZZWFyIiwKICAgICAgIHN1YnRpdGxlID0gIlVTLXNwZWNpZmljIERhdGEiKSArIAogIHlsYWIoIkNvdW50cmllcyIpICsgCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgxNzUwLDIwMjAsYnk9MTApLAogICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMTc1MCwyMDIwLGJ5PTEwKSkgKwogIHRoZW1lX21pbmltYWwoKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCksCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgpgYGB7ciwgQW5pbWF0aW9uXzEsIHdhcm5pbmc9RkFMU0UsIGV2YWw9RkFMU0V9CmFuaW1hdGlvbl8xIDwtIGRmX2xvbmcgJT4lCiAgZmlsdGVyKFR5cGU9PSJHbG9iYWwiKSAlPiUKICBmaWx0ZXIoSW5kaWNhdG9yPT0iRGVhdGhzLzEwMDAgUGVvcGxlIikgJT4lCiAgZmlsdGVyKFllYXI+PTE5ODApICU+JQogIGZpbHRlcihZZWFyPD0yMDEwKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1WYWx1ZSwgZ3JvdXA9Q291bnRyeSwgY29sb3I9UmVnaW9uLCBzaXplPVJlZ2lvbixhbHBoYT1SZWdpb24pKSArCiAgZ2VvbV9wb2ludCgpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiUmVkIiwiQmxhY2siKSkgKwogIHNjYWxlX2FscGhhX21hbnVhbCh2YWx1ZXMgPSBjKDAuMSwgMSkpICsKICBzY2FsZV9zaXplX21hbnVhbCh2YWx1ZXMgPSBjKDAuMjUsIDIpKSArCiAgbGFicyh0aXRsZT0iRGlzdHJpYnV0aW9uIG9mIEluZGljYXRvcnMgYnkgWWVhciBhbmQgVmFsdWUsIDE5ODAtMjAxMCIpICsKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSkgKyAKICB0aGVtZV9jbGFzc2ljKCkgKwogIHlsYWIoIkNydWRlIE1vcnRhbGl0eSBSYXRlIikgKwogIHRyYW5zaXRpb25fdGltZShhcy5pbnRlZ2VyKFllYXIpKSArCiAgc2hhZG93X3dha2Uod2FrZV9sZW5ndGggPSAxLCBhbHBoYSA9IEZBTFNFKQoKYW5pbWF0ZShhbmltYXRpb25fMSwgZnBzID0gMTAsIGR1cmF0aW9uID0gNSkKYGBgCgpgYGB7ciwgQW5pbWF0aW9uXzIsIHdhcm5pbmc9RkFMU0UsIGV2YWw9RkFMU0V9CmFuaW1hdGlvbl8yIDwtIGRmX2xvbmcgJT4lCiAgZmlsdGVyKFR5cGU9PSJHbG9iYWwiKSAlPiUKICBmaWx0ZXIoSW5kaWNhdG9yPT0iRW5lcmd5IFVzZSAoa2csIG9pbC1lcS4vY2FwaXRhKSIpICU+JQogIGZpbHRlcihZZWFyPj0xOTgwKSAlPiUKICBmaWx0ZXIoWWVhcjw9MjAxMCkgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9VmFsdWUsIGdyb3VwPUNvdW50cnksIGNvbG9yPVJlZ2lvbiwgc2l6ZT1SZWdpb24sIGFscGhhPVJlZ2lvbikpICsKICBnZW9tX3BvaW50KCkgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJSZWQiLCJCbGFjayIpKSArCiAgc2NhbGVfYWxwaGFfbWFudWFsKHZhbHVlcyA9IGMoMC4xLCAxKSkgKwogIHNjYWxlX3NpemVfbWFudWFsKHZhbHVlcyA9IGMoMC4yNSwgMikpICsKICBsYWJzKHRpdGxlPSJEaXN0cmlidXRpb24gb2YgSW5kaWNhdG9ycyBieSBZZWFyIGFuZCBWYWx1ZSwgMTk4MC0yMDEwIikgKwogIHRoZW1lX2NsYXNzaWMoKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCkpICsgCiAgeWxhYigiRW5lcmd5IFVzZSBwZXIgQ2FwaXRhIikgKwogIHRyYW5zaXRpb25fdGltZShhcy5pbnRlZ2VyKFllYXIpKSArCiAgc2hhZG93X3dha2Uod2FrZV9sZW5ndGggPSAxLCBhbHBoYSA9IEZBTFNFKQoKYW5pbWF0ZShhbmltYXRpb25fMiwgZnBzID0gMTAsIGR1cmF0aW9uID0gNSkKYGBgCgpgYGB7ciwgQW5pbWF0aW9uXzMsIHdhcm5pbmc9RkFMU0UsIGV2YWw9RkFMU0V9CmFuaW1hdGlvbl8zIDwtIGRmX2xvbmcgJT4lCiAgZmlsdGVyKFR5cGU9PSJHbG9iYWwiKSAlPiUKICBmaWx0ZXIoSW5kaWNhdG9yPT0iR0RQIEdyb3d0aC9DYXBpdGEgKCUpIikgJT4lCiAgZmlsdGVyKFllYXI+PTE5ODApICU+JQogIGZpbHRlcihZZWFyPD0yMDEwKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1WYWx1ZSwgZ3JvdXA9Q291bnRyeSwgY29sb3I9UmVnaW9uLCBzaXplPVJlZ2lvbiwgYWxwaGE9UmVnaW9uKSkgKwogIGdlb21fcG9pbnQoKSArCiAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IGMoIlJlZCIsIkJsYWNrIikpICsKICBzY2FsZV9hbHBoYV9tYW51YWwodmFsdWVzID0gYygwLjEsIDEpKSArCiAgc2NhbGVfc2l6ZV9tYW51YWwodmFsdWVzID0gYygwLjI1LCAyKSkgKwogIGxhYnModGl0bGU9IkRpc3RyaWJ1dGlvbiBvZiBJbmRpY2F0b3JzIGJ5IFllYXIgYW5kIFZhbHVlLCAxOTgwLTIwMTAiKSArCiAgdGhlbWVfY2xhc3NpYygpICsKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSkgKwogIHlsYWIoIkdEUCBHcm93dGggcGVyIENhcGl0YSAoJSkiKSArCiAgdHJhbnNpdGlvbl90aW1lKGFzLmludGVnZXIoWWVhcikpICsKICBzaGFkb3dfd2FrZSh3YWtlX2xlbmd0aCA9IDEsIGFscGhhID0gRkFMU0UpCgphbmltYXRlKGFuaW1hdGlvbl8zLCBmcHMgPSAxMCwgZHVyYXRpb24gPSA1KQpgYGAKCmBgYHtyLCBBbmltYXRpb25fNCwgd2FybmluZz1GQUxTRSwgZXZhbD1GQUxTRX0KYW5pbWF0aW9uXzQgPC0gZGZfbG9uZyAlPiUKICBmaWx0ZXIoVHlwZT09Ikdsb2JhbCIpICU+JQogIGZpbHRlcihJbmRpY2F0b3I9PSJDTzIgRW1pc3Npb25zIChNZykiKSAlPiUKICBmaWx0ZXIoWWVhcj49MTk4MCkgJT4lCiAgZmlsdGVyKFllYXI8PTIwMTApICU+JQogIGdncGxvdChhZXMoeD1ZZWFyLCB5PVZhbHVlLCBncm91cD1Db3VudHJ5LCBjb2xvcj1SZWdpb24sIHNpemU9UmVnaW9uLCBhbHBoYT1SZWdpb24pKSArCiAgZ2VvbV9wb2ludCgpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiUmVkIiwiQmxhY2siKSkgKwogIHNjYWxlX2FscGhhX21hbnVhbCh2YWx1ZXMgPSBjKDAuMSwgMSkpICsKICBzY2FsZV9zaXplX21hbnVhbCh2YWx1ZXMgPSBjKDAuMjUsIDIpKSArCiAgbGFicyh0aXRsZT0iRGlzdHJpYnV0aW9uIG9mIEluZGljYXRvcnMgYnkgWWVhciBhbmQgVmFsdWUsIDE5ODAtMjAxMCIpICsKICB0aGVtZV9jbGFzc2ljKCkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTApKSArCiAgeWxhYigiQ08yIEVtaXNzaW9ucyAoTWcpIikgKwogIHRyYW5zaXRpb25fdGltZShhcy5pbnRlZ2VyKFllYXIpKSArCiAgc2hhZG93X3dha2Uod2FrZV9sZW5ndGggPSAxLCBhbHBoYSA9IEZBTFNFKQoKYW5pbWF0ZShhbmltYXRpb25fNCwgZnBzID0gMTAsIGR1cmF0aW9uID0gNSkKYGBgCgpgYGB7cn0KVG9wMTA8LWRmX2xvbmcgJT4lCiAgZmlsdGVyKFR5cGU9PSJHbG9iYWwiKSAlPiUKICBmaWx0ZXIoSW5kaWNhdG9yPT0iQ08yIEVtaXNzaW9ucyAoTWcpIikgJT4lCiAgZmlsdGVyKFllYXI+PTE5MDApICU+JQogIGZpbHRlcihZZWFyPD0yMDEwKSAlPiUKICBncm91cF9ieShDb3VudHJ5KSAlPiUKICBtdXRhdGUobWF4X3ZhbCA9IG1heChWYWx1ZSkpICU+JQogIHVuZ3JvdXAoKSAlPiUKICBtdXRhdGUocmFuaz1kZW5zZV9yYW5rKC1tYXhfdmFsKSkgJT4lCiAgZmlsdGVyKHJhbms8PTEwKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1mY3RfcmVvcmRlcihDb3VudHJ5LCBWYWx1ZSwgbWF4KSkpICsKICBnZW9tX3RpbGUoY29sb3I9InRyYW5zcGFyZW50IiwgYWVzKGZpbGw9bG9nKFZhbHVlKSkpICsKICBzY2FsZV9maWxsX2dyYWRpZW50bihjb2xvcnMgPSBjKCJ5ZWxsb3ciLCJyZWQiLCJibGFjayIpKSArCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgxOTAwLDIwMTAsYnk9NSksCiAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgxOTAwLDIwMTAsYnk9NSkpICsgCiAgdGhlbWVfY2xhc3NpYygpICsgCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCksCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikgKyAKICBsYWJzKHRpdGxlID0gIlRvcCAxMCBFbWlzc2lvbnMtcHJvZHVjaW5nIENvdW50cmllcyBpbiAyMDEwICgxOTAwLTIwMTApIiwKICAgICAgIHN1YnRpdGxlID0gIk9yZGVyZWQgYnkgRW1pc3Npb25zIFByb2R1Y2VkIGluIDIwMTAiLAogICAgICAgZmlsbCA9ICJMbihDTzIgRW1pc3Npb25zIChNZykpIikKClRvcDEwCmBgYAoKIyMgVVMtc3BlY2lmaWMKCmBgYHtyfQpkZl9sb25nX3VzIDwtIGRmX2xvbmcgJT4lCiAgZmlsdGVyKENvdW50cnk9PSJVbml0ZWQgU3RhdGVzIikKCiMgQXBwcm94aW1hdGVkIGRlcml2YXRpdmUgZnVuY3Rpb24pCmRmX2xvbmdfdXMgPC0gZGZfbG9uZ191cyAlPiUKICBmaWx0ZXIoWWVhcj49MTkwMCwKICAgICAgICAgWWVhcjw9MjAxMCkgJT4lCiAgZ3JvdXBfYnkoSW5kaWNhdG9yKSAlPiUKICBtdXRhdGUoIkNoYW5nZSAoJSkiPSgoVmFsdWUvbGFnKFZhbHVlKSkqMTAwKS0xMDAsCiAgICAgICAgIE1lYW49bWVhbihWYWx1ZSksCiAgICAgICAgIEFub21hbHk9VmFsdWUtTWVhbikgJT4lCiAgdW5ncm91cCgpICU+JQogIG11dGF0ZShBbm9tYWx5X2NvbG9yPWlmZWxzZShBbm9tYWx5PjAsIlBvc2l0aXZlIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKEFub21hbHk8MCwiTmVnYXRpdmUiLCJaZXJvIikpLAogICAgICAgICBBbm9tYWx5X2NvbG9yPWZhY3RvcihBbm9tYWx5X2NvbG9yLCBsZXZlbHMgPSBjKCJQb3NpdGl2ZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIk5lZ2F0aXZlIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiWmVybyIpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBvcmRlcmVkID0gVFJVRSkpCmBgYAoKYGBge3J9ClVTX0luZGljYXRvcnM8LWRmX2xvbmdfdXMgJT4lCiAgZmlsdGVyKFllYXI+PTE5ODApICU+JQogIGZpbHRlcihZZWFyPD0yMDEwKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1WYWx1ZSkpICsgCiAgZ2VvbV9saW5lKCkgKyAKICBmYWNldF93cmFwKEluZGljYXRvcn4uLCBuY29sPTIsIG5yb3c9Mywgc2NhbGVzID0gImZyZWVfeSIpICsgCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgxOTgwLDIwMTAsYnk9NSksCiAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgxOTgwLDIwMTAsYnk9NSkpICsKICB0aGVtZV9jbGFzc2ljKCkgKyAKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSwKICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X2JsYW5rKCkpICsgCiAgbGFicyh0aXRsZSA9ICJVUy1zcGVjaWZpYyBJbmRpY2F0b3JzICgxOTgwLTIwMTApIikKVVNfSW5kaWNhdG9ycwpgYGAKCmBgYHtyfQpkZl9sb25nX3VzICU+JQogIGZpbHRlcihZZWFyPj0xOTgwKSAlPiUKICBmaWx0ZXIoWWVhcjw9MjAxMCkgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9YENoYW5nZSAoJSlgLCBjb2xvcj1JbmRpY2F0b3IsIGZpbGw9InRyYW5zcGFyZW50IikpICsgCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0PTAuOCwgbGluZXR5cGU9MikgKwogIGdlb21faGxpbmUoeWludGVyY2VwdD0xLjIsIGxpbmV0eXBlPTIpICsKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAxLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV9saW5lKHNpemU9MC41KSArIAogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzZXEoMTk4MCwyMDEwLGJ5PTUpLAogICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMTk4MCwyMDEwLGJ5PTUpKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgtNTAwLDEyNTAsIGJ5PTI1MCksCiAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgtNTAwLDEyNTAsIGJ5PTI1MCkpICsKICB0aGVtZV9jbGFzc2ljKCkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTApLAogICAgICAgIGF4aXMudGl0bGUueCAgPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgbGVnZW5kLmRpcmVjdGlvbiA9ICJob3Jpem9udGFsIikgKyAKICBsYWJzKHRpdGxlID0gIlVTLXNwZWNpZmljIEluZGljYXRvcnMgKDE5ODAtMjAxMCkiLAogICAgICAgc3VidGl0bGUgPSAiQ2hhbmdlICglKSBMaW5lcyIpCgpkZl9sb25nX3VzICU+JQogIGZpbHRlcihZZWFyPj0xOTgwKSAlPiUKICBmaWx0ZXIoWWVhcjw9MjAxMCkgJT4lCiAgZmlsdGVyKEluZGljYXRvcj09IlRlbXBlcmF0dXJlIChGYWhyZW5oZWl0KSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iRW5lcmd5IFVzZSAoa2csIG9pbC1lcS4vY2FwaXRhKSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iQ08yIEVtaXNzaW9ucyAoTWcpIikgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9YENoYW5nZSAoJSlgLCBjb2xvcj1JbmRpY2F0b3IpKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdD0wLjgsIGxpbmV0eXBlPTIpICsKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQ9MS4yLCBsaW5ldHlwZT0yKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMSwgbGluZXR5cGU9MykgKwogIGdlb21fbGluZShzaXplPTEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDE5ODAsMjAxMCxieT01KSwKICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2VxKDE5ODAsMjAxMCxieT01KSkgKwogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoLTEwLDEwLCBieT0xKSwKICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2VxKC0xMCwxMCwgYnk9MSksCiAgICAgICAgICAgICAgICAgICAgIGxpbWl0cyA9IGMoLTEwLDEwKSkgKwogIHRoZW1lX2NsYXNzaWMoKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCksCiAgICAgICAgYXhpcy50aXRsZS54ICA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICBsZWdlbmQuZGlyZWN0aW9uID0gImhvcml6b250YWwiKSArIAogIGxhYnModGl0bGUgPSAiRW1pc3Npb25zLCBFbmVyZ3kgVXNlLCBhbmQgVGVtcGVyYXR1cmUgKDE5ODAtMjAxMCkiLAogICAgICAgc3VidGl0bGUgPSAiQ2hhbmdlICglKSBMaW5lcyIpCgpkZl9sb25nX3VzICU+JQogIGZpbHRlcihZZWFyPj0xOTgwKSAlPiUKICBmaWx0ZXIoWWVhcjw9MjAxMCkgJT4lCiAgZmlsdGVyKEluZGljYXRvcj09IlRlbXBlcmF0dXJlIChGYWhyZW5oZWl0KSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iRW5lcmd5IFVzZSAoa2csIG9pbC1lcS4vY2FwaXRhKSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iQ08yIEVtaXNzaW9ucyAoTWcpIikgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9YENoYW5nZSAoJSlgLCBjb2xvcj1JbmRpY2F0b3IpKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdD0wLjgsIGxpbmV0eXBlPTIpICsKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQ9MS4yLCBsaW5ldHlwZT0yKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMSwgbGluZXR5cGU9MykgKwogIGdlb21fc21vb3RoKHNpemU9MSwgYWxwaGE9MC4xLCBhZXMoZmlsbD1JbmRpY2F0b3IpLCBzZT1GQUxTRSkgKwogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzZXEoMTk4MCwyMDEwLGJ5PTUpLAogICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMTk4MCwyMDEwLGJ5PTUpKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgtMTAsMTAsIGJ5PTEpLAogICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoLTEwLDEwLCBieT0xKSwKICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gYygtMTAsMTApKSArCiAgdGhlbWVfY2xhc3NpYygpICsgCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCksCiAgICAgICAgYXhpcy50aXRsZS54ICA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICBsZWdlbmQuZGlyZWN0aW9uID0gImhvcml6b250YWwiKSArIAogIGxhYnModGl0bGUgPSAiVVMgRW1pc3Npb25zLCBFbmVyZ3kgVXNlLCBhbmQgVGVtcGVyYXR1cmVzICgxOTgwLTIwMTApIiwKICAgICAgIHN1YnRpdGxlID0gIlNtb290aGVkIENoYW5nZSAoJSkgTGluZXMiKQpgYGAKCmBgYHtyfQpkZl9sb25nX3VzICU+JQogIGZpbHRlcihZZWFyPj0xOTgwKSAlPiUKICBmaWx0ZXIoWWVhcjw9MjAxMCkgJT4lCiAgZmlsdGVyKEluZGljYXRvcj09IkNPMiBFbWlzc2lvbnMgKE1nKSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iVGVtcGVyYXR1cmUgKEZhaHJlbmhlaXQpIikgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9VmFsdWUpKSArCiAgZ2VvbV9saW5lKCkgKyAKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDE5ODAsMjAxMCxieT01KSwKICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2VxKDE5ODAsMjAxMCxieT01KSkgKyAKICBmYWNldF93cmFwKEluZGljYXRvcn4uLCBzY2FsZXMgPSAiZnJlZV95IiwgbmNvbD0xKSArCiAgdGhlbWVfY2xhc3NpYygpICsKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSwKICAgICAgICBheGlzLnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArIAogIGxhYnModGl0bGU9IlVTIEVtaXNzaW9ucyBhbmQgVGVtcGVyYXR1cmVzICgxOTgwLTIwMTApIikKCmRmX2xvbmdfdXMgJT4lCiAgZmlsdGVyKEluZGljYXRvcj09IkNPMiBFbWlzc2lvbnMgKE1nKSJ8CiAgICAgICAgICAgSW5kaWNhdG9yPT0iVGVtcGVyYXR1cmUgKEZhaHJlbmhlaXQpIikgJT4lCiAgZ2dwbG90KGFlcyh4PVllYXIsIHk9VmFsdWUpKSArCiAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMTk4MCwgbGluZXR5cGU9MiwgY29sb3I9ImJsYWNrIikgKyAKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSAyMDEwLCBsaW5ldHlwZT0yLCBjb2xvcj0iYmxhY2siKSArCiAgZ2VvbV9zZWdtZW50KGFlcyh4PVllYXIsIHk9VmFsdWUsIHhlbmQ9WWVhciwgeWVuZD1NZWFuLGNvbG9yPUFub21hbHlfY29sb3IpLCBzaXplPTEuMjUpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygicmVkIiwiYmx1ZSIsImdyYXkiKSkgKyAKICBnZW9tX2hsaW5lKGFlcyh5aW50ZXJjZXB0PU1lYW4pLCBsaW5ldHlwZT0xLCBjb2xvcj0iYmxhY2siKSArCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgxOTAwLDIwMTAsYnk9NSksCiAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgxOTAwLDIwMTAsYnk9NSkpICsKICBmYWNldF93cmFwKEluZGljYXRvcn4uLCBzY2FsZXMgPSAiZnJlZV95IiwgbmNvbD0xKSArIAogIHRoZW1lX2NsYXNzaWMoKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCksCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpICArCiAgbGFicyh0aXRsZSA9ICJVUyBFbWlzc2lvbnMgYW5kIFRlbXBlcmF0dXJlcyAoMTkwMC0yMDEwKSIsCiAgICAgICBzdWJ0aXRsZSA9ICJJbmRpY2F0b3IgTWVhbiBSZXByZXNlbnRlZCBieSBTb2xpZCBCbGFjayBMaW5lIikKYGBgCgpgYGB7cn0KZGZfbG9uZ191cyAlPiUKICBmaWx0ZXIoSW5kaWNhdG9yPT0iVGVtcGVyYXR1cmUgKEZhaHJlbmhlaXQpInwKICAgICAgICAgICBJbmRpY2F0b3I9PSJDTzIgRW1pc3Npb25zIChNZykiKSAlPiUKICBnZ3Bsb3QoYWVzKHg9WWVhciwgeT1gQ2hhbmdlICglKWApKSArCiAgYW5ub3RhdGUoInJlY3QiLCB4bWluPS1JbmYsIHhtYXg9SW5mLCB5bWluPTAsIHltYXg9SW5mLCBhbHBoYT0wLjI1LCBmaWxsPSJncmVlbiIpICsKICBhbm5vdGF0ZSgicmVjdCIsIHhtaW49LUluZiwgeG1heD1JbmYsIHltaW49LUluZiwgeW1heD0wLCBhbHBoYT0wLjI1LCBmaWxsPSJyZWQiKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0PTAsIGxpbmV0eXBlPTEpICsgCiAgZ2VvbV9zZWdtZW50KGFlcyh4PVllYXIsIHk9YENoYW5nZSAoJSlgLCB4ZW5kPVllYXIsIHllbmQ9MCksIHNpemU9MS4yNSkgKwogIGZhY2V0X3dyYXAoSW5kaWNhdG9yfi4sIHNjYWxlcyA9ICJmcmVlX3kiLCBuY29sPTEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDE5MDAsMjAxMCxieT01KSwKICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2VxKDE5MDAsMjAxMCxieT01KSkgKwogIHRoZW1lX2NsYXNzaWMoKSArIAogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTApLAogICAgICAgIGF4aXMudGl0bGUueCAgPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgbGVnZW5kLmRpcmVjdGlvbiA9ICJob3Jpem9udGFsIikgKyAKICBsYWJzKHRpdGxlID0gIlVTIEVtaXNzaW9ucywgRW5lcmd5IFVzZSwgYW5kIFRlbXBlcmF0dXJlcyAoMTk4MC0yMDEwKSIsCiAgICAgICBzdWJ0aXRsZSA9ICJDaGFuZ2UgKCUpIExpbmVzIikKYGBgCgojIyBNYWluIHBsb3QKCmBgYHtyfQoKbGlicmFyeShwYXRjaHdvcmspCgpDTzJfd29ybGQgKyBUb3AxMCArIFVTX0luZGljYXRvcnMgKwogIHBsb3RfbGF5b3V0KHdpZHRocyA9IGMoMSwgMiksIGhlaWdodHMgPSB1bml0KGMoMiwgNSksIGMoJ2NtJywgJ251bGwnKSkpCgpwbmcoaGVyZTo6aGVyZSgiaW1nIiwgIm1haW5wbG90LnBuZyIpLCB3aWR0aCA9IDkwMCwgaGVpZ2h0ID0gNzAwKQooQ08yX3dvcmxkIHwgVG9wMTApLyBVU19JbmRpY2F0b3JzKwogICAgcGxvdF9sYXlvdXQod2lkdGhzID0gYygxLCAyKSwgaGVpZ2h0cyA9IHVuaXQoYyg0LCA1KSwgYygnY20nLCAnbnVsbCcpKSkKZGV2Lm9mZigpCmBgYAoKCg==